Исправление AndreyKl, (текущая версия) :
на вскидку руками это будет что то вроде
readFile "filename" >>= ((writeFile "newfilename") . unlines . filter (hasChar '@') . lines)
Исходная версия AndreyKl, :
на вскидку руками это будет что то вроде
readFile "filename" >>= ((writeFile "newfilename") . unlines . filter (hasChar '@') . lines)