perl58 -MO=Deparse,-p -e"print $a=3, $/, print $a-5, $/"
print(($a = 3), $/, print(($a - 5), $/));
-e syntax OK