>perl -wMstrict -le
"$_ = qq{\"ABC\",\"DEF\",\"This is a test\",\"Hello\"};
 ;;
 my ($first, $last ) = /(.+\x22,)(.+)/;
 print qq{'$last'};
 ;;
 $last =~ s//\"\n$first\"/g;
 print qq{'$last'};
"
'"Hello"'
'"Hello"'