$ perl -MO=Deparse,-p -e " $foo = 1, 2; "
(($foo = 1), '???');
-e syntax OK