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()));