$ perl -MO=Deparse -E '$x = ("a", "b", "c");' use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval'; $x = ('???', '???', 'c'); -e syntax OK #### $ perl -MO=Deparse -E '$x =()= ("a", "b", "c"); print $x' use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval'; $x = () = ('a', 'b', 'c'); print $x; -e syntax OK $ perl -E '$x =()= ("a", "b", "c"); print $x' 3