Select Code to Download

$ echo 1,a | perl -MDP -MText::CSV_XS -wle'DPeek(Text::CSV_XS->new->ge
+tline(*ARGV))'
\AV()
...
    '1',
    'a'
    ];