When you're trying to suss out precedence problems the "-p" flag to B::Deparse can be useful to get it to shove in explicit parens everywhere.

$ perl -MO=Deparse,-p -e "sub test { return int(rand(2)) or print 'Nop
+e' }"
sub test {
    ((return int(rand(2))) or print('Nope'));
}
-e syntax OK
[download]