$ perl -le " $f = 1,2,3 ; print $f"
1

$ perl -MO=Deparse -le " $f = 1,2,3 ; print $f"
BEGIN { $/ = "\n"; $\ = "\n"; }
$f = 1, '???', '???';
print $f;
-e syntax OK