Select Code to Download

perl -e "my $test = join ', ', ('A', 'B', 'C');$test =~ s/,(.+?)$/ and
+$1/; print $test;"