perl -pe's/(.)(.*)(.)/\3\2\1/'