use Regexp::Assemble;
 
my $ra = Regexp::Assemble->new;
$ra->add( q{Sarnia Employees' Bargaining Association} );
$ra->add( q{Sarnia Municipal Administrative Employees' Assn} );
$ra->add( q{Sarnia Police Association} );
$ra->add( q{Sarnia Professional Fire Fighters} );
print $ra->re;