Select Code to Download

use Regexp::Assemble;
 
my $ra = Regexp::Assemble->new;
...
$ra->add( q{Sarnia Police Association} );
$ra->add( q{Sarnia Professional Fire Fighters} );
print $ra->re;