while ( my $line = <HANDLE>) {
          if ( $line =~ /(no mail)/i )
            {
                ...         
            }
         close ( HANDLE );
 }
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.