=begin filter perl -nnn # now in verbatim $A++; =end filter __RESULT__ +perl
       1 # now in verbatim
       2 $A++;
__RESULT__ -perl
    # now in verbatim
    $A++;