The Underscore Archives

> $ cat procmail.rc
> ...
> :0 f
> * ^From:.+davehodg at gmail.com
> * ^To:.*underscore at under-score.org.uk
> | perl -e 'while(<>) {$mail.=$_;} \
> $mail=~s/(([^\r\n]+[\r\n])+)(.+)(--.+)/$1\n<grumpy>\n$3\n<\/gr
> umpy>\n$4/s; \ print $mail;'
> ...
> $

Eh?