#!perl -lp s/.//;$_=chop.$_.$&