Help for this page
perl -e \ '$_="A3xyz45M98AB7Z9",s/(\d)([a-zA-Z])/$1:$2/gsi,print'
use strict; ... print "$stuff[$j]"; } }