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