Help for this page
use strict; use warnings; ... split m{\s*,\s*}, $str; print qq{$str\n};
'abc', 'dec'f', ''ghc'' 'abc' 'dec\'f' '\'ghc\''