#!perl -p
$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/