check the while loop usage:
while(my $line=<$in>){ if ($line=~/eroare/i){ print "Found"; } } [download]
In reply to Re^3: log parser by 2teez in thread log parser by alex_fatu