Help for this page
Select Code to Download
Select
or
download this
my $str = "abdbdr23"; my ( $name, $num ) = ( $str =~ /^(\w+?)(\d*)$/ );