#!perl -lp s/(.)(.*)(.)/\3\2\1/