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