Select Code to Download

$a = 'acvdef431234';
$a =~ tr/\d/ /c;
print "$a";
output:   d
expected output:      431234

$a = 'acvdef431234';
$a =~ tr/[0-9]/ /c;
print "$a";
output:      431234