$ perl -e '$s="(\\d\\w)" x 3; $X="a1b2c3d4e5"; $m=qr/$s/; @R=$X=~$m;  print join(";",@R)."\n"' 
1b;2c;3d