#!perl -p
s;(.)(.*)(.);$3$2$1