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