#!perl -p\x0d
chop;/e$/?$_=/^m/?'tanoshii ':'yukaina ':{$_.=/^a/?'sagi':/^g/?'usu':/^t/?'nbou':/tt/?'kanku':/^oh/?'nagi':/nb/?'ni':/^k/?'n':''};/ad/?s/s/us/:/^s/?s/u//:0;s/a$/aion/;s/ / nakamaga popopopo-n/;s/$/\n/
Note that non-ascii characters in the above source code will be escaped (such as \x9f).