Select Code to Download

use strict;
use warnings;
...
   split m{\s*,\s*}, $str;

print qq{$str\n};

'abc', 'dec'f', ''ghc''
'abc' 'dec\'f' '\'ghc\''