Another (strict) solution for 9b:

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