my $re1 = qr/foo|bar/;
{
    use re 'debug';
    my $re2 = qr/quz|baz/;
    {
        no re 'debug';
        my $re3 = qr/hello|world/;
    }
}