I understand that this is not quite what you are asking for, but what about:
perl -MO=Deparse,-p -e "print $a+$b*$c**$d;"
it prints parentheses around expressions according to priority:
print(($a + ($b * ($c ** $d))));
And for things from perl scatter, you can look at perlopquick - the device is located very similar, as indicated in your question.
source
share