#!perl -p\x0d
$p=" nakamaga popopopo-n";s/tou/$&sagi/;s/ama/$&usu/;s/akima/$&u/;s/$/kanku/ if/tt/;s/nwa/$&ni/;s/iwa/$&n/;s/^m.*/tanoshii$p/;s/u(nara)/$1ion/;s/you$/$&nagi/;s/s.*e$/yukaina$p/;s/ima$/$&nbou/;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).