Help for this page
perl -MO=Concise,-exec -le '$x = 10; for(qw(moo baz bar foo)) { ... 1e <@> print vK 1f <@> leave[1 ref] vKP/REFC -e syntax OK
$result = ( ( foo() - bar() ) - baz() ) - moo();