perl -e '$_="p\#hjaja";s#ja(.*)#\b$1ph\n#;s#.\###;print;'