#!perl -0p
s/(.)(.)/\2\1/sg