process_file($_) for grep /(?:foo[34]|bar[12])\.txt$/io, @files;