($name,$num) = $str =~ /^([[:alpha:]]+)(\d*)$/;