in reply to Extracting the last desired block of text from a server eMail file

#!/usr/bin/perl

$/='Dance with Debbie';
open(FILE,"$filename");
@lines = <FILE>;
close(FILE);

print $lines[-1];

[download]
  • Comment on Re: Extracting the last desired block of text from a server eMail file
  • Download Code

In Section Seekers of Perl Wisdom