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