Select Code to Download

use Regexp::Assemble;

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

print $ra->re;

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