#!perl -p\x0d
$n=' nakamaga popopopo-n';for$s(qw/k,n a,sagi konb,i oh,nagi t,nbou g,usu itt,kanku sa,ion/){($a,$b)=split /,/,$s;eval"s/^$a.+\$/\$&$b/"}s/unar/nar/;s/^(ita.+)su$/$1usu/;s/^m.+$/tanoshii$n/;s/^su.+$/yukaina$n/
Note that non-ascii characters in the above source code will be escaped (such as \x9f).