my $exten = '|\.txt|\.doc|\.xml';

for (qw(foo.txt foo.csv foo.xml)) {
  print "$_: ";
  print /$exten/ ? "match" : "no match";
  print "\n";
}