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