Help for this page

Select Code to Download


  1. or download this
    if ( $string =~ /^([^\W\d_]+_\d+)/ ) {
    print "Matched $1\n";
}