[MacPerl] Stripping

[dha@panix.com (David H. Adler)]

Ok, here's my situation. A friend of mine mentioned to me recently that she
has been archiving some email in a text file of some sort, but hasn't
gotten around to stripping the headers from the mail. I said to myself:
Self, I said, this is a job for [insert fanfare here] MACPERL. So I figured
I'd write some perl stuff that would do the trick 1-2-3.

Then I remembered that the first great virtue of a programmer is laziness.
Hmm... I shouldn't put too much work into this if someone else has already
solved the problem.

So that's the question. Is there a scipt out there that strips the headers
off a bunch of email and, more specifically, is there such a script in the
mac flavor of perl?

I figure if there's something similar/not macintized, I can tinker with it
a bit, but it would be nice to have a starting point, not to mention a
completed solution.

Hmm, I seem to be in humorous mode tonight. I apologize if I'm not serious
enough for anyone here. It's been a long day. :->

Any help would be greatly appeciated. Thank you

dha

David H. Adler  <dha@panix.com> - Finger for PGP public key.
"perhaps the Monty Python scholar in America today."-New Yorker, 13mar89
---------------------------------------------------------------------
"There is a thin line between genius and insanity. I have erased this
line."-O. Levant