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