while(my $line=<$in>){
   if ($line=~/eroare/i){
      print "Found";
   }
 }