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