#!perl -p
pos=++$}while s#\G(.)(.)#$1lt$2?$&:$2.$1#e