print grep /error/, <$f>;