$ 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