#!perl -pl
s/(.)${"$`$'"=~s##$&gt$'#ger}//g