BEGIN {$^H |= 0x30000} $^H{'qr'} = sub {''}; my $foo = \'';