print grep /error/, <$f>;

##</code><code>##

open my $f, '<', 'file' or die $!;