print map /(error.*\n)/, <$a>;