import Text.ParserCombinators.Parsec
theParser p = let
skipPar = manyTill anyChar
( ( lookAhead p ) <|> ( mempty <* eof ) )
in skipPar *> ( many $ p <> skipPar )
f str = fromRight []
$ parse ( theParser $ string "あいう" ) "" str
aW1wb3J0IFRleHQuUGFyc2VyQ29tYmluYXRvcnMuUGFyc2VjCmltcG9ydCBEYXRhLkVpdGhlcgoKdGhlUGFyc2VyIDo6IFBhcnNlciBTdHJpbmcgLT4gUGFyc2VyIFsgU3RyaW5nIF0KdGhlUGFyc2VyIHAgPSBsZXQgCiAgICBza2lwUGFyID0gbWFueVRpbGwgYW55Q2hhcgogICAgICAgICggKCBsb29rQWhlYWQgcCApIDx8PiAoIG1lbXB0eSA8KiBlb2YgKSApCiAgICBpbiBza2lwUGFyICo+ICggbWFueSAkIHAgPD4gc2tpcFBhciApCgpmIHN0ciA9IGZyb21SaWdodCBbXQogICAgJCBwYXJzZSAoIHRoZVBhcnNlciAkIHN0cmluZyAi44GC44GE44GGIiApICIiIHN0cgoKbWFpbiA9IG1hcE1fIHB1dFN0ckxuICQgZiAiYWLjgYLjgYTjgYYx44GC44GE44GGMjPjgYLjgYTjgYZ4eXoi