#!perl -p
s/(.)(.)/$1gt$2?$2:$1/eg