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

##</code><code>##

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

##</code><code>##

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