#!perl -p
s/beer/maple syrup/;s/([bvi]o)r/$1ur/g;s/(?<! (ent|oth))er/re/g;s/mom/mum/;s/beani/toqu/;s/ram\K/me/;s/ol/o/;s/ns/nc/