regexp_assemble.pl

use strict;
use warnings;
use Data::Dump qw(dump);
use Regexp::Assemble;

my $regexp1 = Regexp::Assemble->new;
$regexp1->track;
$regexp1->add('foo.*');
$regexp1->add('bar.*');

dump($regexp1->match('foobarbaz')); # prints "foo.*"

my $regexp2 = Regexp::Assemble->new;
$regexp2->track;
$regexp2->add('foo.*');
$regexp2->add('bar.*');

dump($regexp2->match('foobarbaz')); # prints "1"