#!perl -p
s/(.)(.)/${$1le$2||2}/g