#!perl -p s/(?<=.)(.)(.)(?=.)/\2\1/g