Help for this page

Select Code to Download


  1. or download this
    while ( $text =~ m<Name:\s+([[:alpha:] ]+?)\s*Age:\s+(\d+)>g ) {