[Haskell] Regular Expressions - take 2