$str = "abdbdr23";
($name,$num) = ($str =~ /^([a-zA-Z]+)(\d{0,})$/) ;
print "$name\t$num\n";