Select Code to Download

perl -e \
'$_="A3xyz45M98AB7Z9",s/(\d)([a-zA-Z])/$1:$2/gsi,print'

use strict;

...
    print "$stuff[$j]";
  }
}