my $joined = qr/${\join '|', @pats}/;