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