while(<>){chomp;s/(.)(.)/ord($1)<ord($2)?$1:$2/eg;print$_,"\n"}