Select Code to Download

$ 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';
...

$ perl -E '$x =()= ("a", "b", "c"); print $x'
3