use strict;
$tmp="some file";
open (FILE,"$tmp");
while(<FILE>)
{
if (/file error/i)
	{print "error in file";}
else
	{print"@_ no error";}
}