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