#!perl -p s/(.)(.)/$1lt$2?$1:$2/ge