2;0 juerd@ouranos:~$ perl -MO=Deparse,-p -e'sub one { 1 } sub two { 2 } sub three { 3 } print one() - three() + two()'
sub one {
    1;
}
sub two {
    2;
}
sub three {
    3;
}
print(((one() - three()) + two()));

##</code><code>##

2;0 juerd@ouranos:~$ perl -le'sub foo { print "foo"; return 1 } sub bar { print "bar"; return 2 } print foo + bar'
bar
foo
1
2;0 juerd@ouranos:~$ perl -le'sub foo { print "foo"; return 1 } sub bar { print "bar"; return 2 } print foo && bar'
foo
bar
2