#!/usr/bin/perl 
use strict;
use warnings;
use Regexp::Assemble;


my $ra = Regexp::Assemble->new->add(qw[foo bar baz]);
print $ra->re, "\n";

for (qw[xfooy snork bar]) {
    print " $_ does " . ( /$ra/ ? '' : 'not ' ) . "match\n";
}

__END__

Output:

(?-xism:(?:ba[rz]|foo))
 xfooy does match
 snork does not match
 bar does match