#!perl -p
s/d/~l^~$`.f/ge;y/f™›/#./d