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