c:\@Work\Perl\monks>perl -wMstrict -le
"my $p1 = qr{ Foo }xms;
 my $p2 = qr{ Bar }xms;
 my $p3 = qr{ Zot }xms;
 ;;
 my $str = 'Bar';
 ;;
 if (my ($m) = $str =~ m{ \A ($p1 | $p2 | $p3) \z }xms) {
   print qq{matches: has '$m'};
   }
"
matches: has 'Bar'