Re^3: log parser

[2teez]

check the while loop usage:

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