#!perl -pa
s!.!$&x$F[$F[1]gt"@F"]=~s///!ge