foreach (@files) {
   process_file ($_) if  /(?:(?:foo[34])|(?:bar[12]))\.txt/io
}