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