if (grep { $path =~ qr/$_/ } @patterns) ...