foo.hs

import Text.Regex.Posix


matcher :: String -> [[String]]
matcher s = s =~ "([A-Za-záéíóúÑñ]+ ?[A-Za-záéíóúÑñ]+? ?[A-Za-záéíóúÑñ]+? ?[A-Za-záéíóúÑñ]+?)\t[0-9]+\t(.*)"

loop :: [String] -> [String]
loop []     = []
loop (x:xs) = let result = matcher x
                  in  case result of
                        [] -> loop xs
                        [r] ->("Ciudad: " ++ r !! 2 ++ " Departamento: "++ r !! 1) : loop xs


runregexp = liftM ( unlines . loop . lines ) (readFile "/home/abuiles/linkProg/java/ciudades.txt") >>= writeFile "salida.txt" >> print "Successfully saved"