if ($text =~ /(?<p1>\b$pattern1\b)|(?<p2>\b$pattern2\b)/) {
  foreach my $foo (keys %+) {print $foo.','.$+{$foo}."\n";}
}