#!perl -p0
s/(.)(.)/\2\1/gs