{
  my %cache;
  sub my_qr { $cache{ $_[0] } ||= qr/$_[0]/ }
}