Select Code to Download

my ($first, $last ) = /(.+",)(.+)/;
$last =~ s//"\n$first"/g;

>perl -wMstrict -le
"$_ = qq{\"ABC\",\"DEF\",\"This is a test\",\"Hello\"};
...
"
'"Hello"'
'"Hello"'