1 2 3 4 5 6 7 8 9 10 11
expr F = f(x,1,2,3); $a = 0; $b = 0; apply { matchassign f(y?,?b) { $a = 2*y?*f(?b); $b = y?^5; } } print $a,$b;