use Regexp::Assemble;

##</code><code>##

my $ra = Regexp::Assemble->new->add(
    '.txt', 
    '.doc', 
    '.xml'
);

##</code><code>##

print $ra->re;

##</code><code>##

(?-xism:.(?:doc|txt|xml))