Select Code to Download

s/((\D)\2+)/length($1).$2/ge;

s/((\D)\2{1,8}|(\d)\3{0,8})/length($1).$2.$3/ge;

s/(\d)(.)/$2x$1/ge;