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