while ( $line = <Stream> ) 
{ 

if ( $line =~ m/blah/ ){ print "here\n"; } 

}