while($i = <datei>)
{
foreach ($i) {
if ($_ =~ /Error/){print $_;}
}
}