$str = "abdbdr23"
($name,$num) = ($str =~ /^(\w+)(\d{0,}$/) ;