Nice, indeed. Here is to run it, assuming the mail is saved in tmpmail : perl -e 'eval $1 if ($a=join "",<>) =~/^(#!.*?)^===/ms' tmpmail Cheers, ETienne ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe