Extracting body text

List:

I want to put the body text in a variable to use in procmail, something 
like this in perl:
#!/usr/bin/perl
undef $/;
#$/='';
while (<>) {
        m#Content-Type: text/plain(.*?)Content-Type=#sm;
        print $1;
        exit;
        }

This gets just the body text and not any attachments that may be 
included.  I am having trouble getting this to work on the command line, 
but am still playing with it.  Has anyone done this with a simple pipe to 
sed or awk?  If so I would welcome your examples.
_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail