#!perl -p s/beer/maple syrup/;s/beani/toqu/;s/ns/nc/;s/ol/o/;s/ram/$&me/;s/mom/mum/;s/[^t][ibv]o/$&u/g;s/( [^oe]\w+)er/$1re/g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page