my %re_cache;
...
{
   my $re = $re_cache{$key} ||= qr/.../;
   ...
}