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