sleuth
Enthusiast
Jan 10, 2001, 12:40 AM
Post #2 of 2
(422 views)
|
To delete the 'first' 13 lines use this,
$message =~ s!(.*\n){13}!!;
That's going to toss the first 13 lines, right from the top. If you wanted to remove certain lines following some kind of character set or something you can grab onto, you could do this.
$message =~ s!<anchor or something like a table tag>(.*\n){13}!!;
But I'm assuming your trying to get rid of the email headers so I think the first code will do it.
Sleuth
|
MAIN
SEARCH
WHO'S 
LOG 