use Macro ADD( x, y ) {
   x + y;
}

...

my $r = ADD( getPfromSomewhere(), getQfromSomewhere() );
...
my $s = ADD( geta(), getb() );