Select Code to Download

$a=Customer100;
$b=20130201;
$a=~ /(.*?)(\d+)/;
$a= $1."_".$b."_".$2;
print $a;

$a=~ s/(.*?)(\d+)/$1\_$b\_$2/;