in reply to Re^2: Regex Subexpressions
in thread Regex Subexpressions

For one possible implementation of your combine subroutine, consider:

use Regexp::Assemble;
sub combine {
    my $str = Regexp::Assemble->new->add(@_)->as_string;
    qr/($str)/;
}

[download]

- another intruder with the mooring in the heart of the Perl

In Section Seekers of Perl Wisdom