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