Select Code to Download

    if($text =~ $pattern){
        print $&; #prints entire match

    if($text =~ /($pattern)/){
        print $1; #prints entire match

    if(my ($match) = $text =~ /($pattern)/){
        print $match; #prints entire match