Select Code to Download

my $templateformat = 'w<NM>b<NM>cm<CH>sw<SW>';
my $inputexample = 'w8b8cm512swno';

my @splittemplate = split /[^A-Z]+/,$templateformat;

my @splitinput = split /[^(\d)(no)]+/,$inputexample;