You could probably do: $email =~ /^(.*)-----Original Message-----/;
Then $1 would have your text, I am not sure if it will keep the line breaks or not, but you can play with that a little. Brian Seel HS Intern -----Original Message----- From: Joon Hahn [mailto:[EMAIL PROTECTED] Sent: Wednesday, July 30, 2003 11:21 AM To: [EMAIL PROTECTED] Subject: stipping away text below -----Original Message----- Hello all, I was wondering if somebody out there had a perl script that would delete everything below -----Original Message----- in an email? I have a workflow engine which grabs the entire body of an email an updates a worklog. The problem is it grabs the whole email instead of just the most recent update. As you can see it can get very messy and unusable. Any help would be greatly appreciated. Joon Hahn -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
