$foo->mysub %2

##</code><code>##

method $obj %2

##</code><code>##

perl -MO=Deparse,-p -e 'method $o 2; method $o %2'
$o->method(2);
($o->method % 2);
-e syntax OK