use re 'debug';
my $x = qr/a(??{ BEGIN { die } })/;
__END__
Compiling REx "a(??{ BEGIN{ die } })"
panic: top_env