=pod foo =for filter=perl $A++; # this works too bar __RESULT__ +perl

foo

$A++; # this works too

bar

__RESULT__ -perl

foo

$A++; # this works too

bar