use MyFoo -macronic => <<'YO';
 ...
 YO;

##</code><code>##

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

...

my $p = getPfromSomewhere();
my $q = getQfromSomewhere();
my $r = ADD( $p, $q );

##</code><code>##

my $p = getPfromSomewhere();
my $q = getQfromSomewhere();
$r = $p + $q;

##</code><code>##

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

...

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

##</code><code>##

my $r = getPfromSomewhere() + getQfromSomewhere();
my $s = geta() + getb();