Greeting Animals by tails

#!perl -p
for$;qw(un/n ra=ion d.*\Ksu|go=usu ^t=nbou wa=n nw=i ig=sagi ha=nagi tt=kanku ^m.*/tanoshiiA ^su.*/yukainaA A/$"nakamaga$"popopopo-n){($b=$;)=~s!=!.*\\K/!;eval"s/$b/"}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page