my $str = "abdbdr23";
my ( $name, $num ) = ( $str =~ /^(\w+?)(\d*)$/ );