=begin filter perl # now in full colour! $A++; =end filter __RESULT__ +perl
# now in full colour!
$A++;
__RESULT__ -perl
# now in full colour!
$A++;