my $compiled_pat = $compiled_pats{$pat} ||= qr/$pat/;