sub foo { $y =~ /$x/o; } #### BEGIN { my $re; sub foo { $re= qr/$x/ unless $re; $y =~ $re; } }