$optree =~
    s(
        (?<= $STATEMENT{ $CONTAINS{ $OP_ENTERTRY } } )
        (?! $OP_NEXTSTATEMENT
            $STATEMENT{ $CONTAINS{ $GVSV{ '*@' } } } )
    )
    {
        warn $@ if $@;
    }xg