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

##</code><code>##

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