my @data = <main::DATA>;
foreach (@data)
{
my @columns = (/(?:(?<=^")|(?<=",")).*?(?:(?="\s*$)|(?=","))/g);
foreach (@columns)
{
}
}
__DATA__
"ID-1","A "B"", C, D, E","Today"
"ID-2","A, B, C, D, E,F","Yesterday"
"ID-3","A and nothing else","Today"
bXkgQGRhdGEgPSA8bWFpbjo6REFUQT47Cgpmb3JlYWNoIChAZGF0YSkKewogIG15IEBjb2x1bW5zID0gKC8oPzooPzw9XiIpfCg/PD0iLCIpKS4qPyg/Oig/PSJccyokKXwoPz0iLCIpKS9nKTsKICBmb3JlYWNoIChAY29sdW1ucykKICB7CiAgICBwcmludCAiJyRfJ1xuIjsKICB9CiAgcHJpbnQgIlxuIjsKfQoKX19EQVRBX18KIklELTEiLCJBICJCIiIsIEMsIEQsIEUiLCJUb2RheSIKIklELTIiLCJBLCBCLCBDLCBELCBFLEYiLCJZZXN0ZXJkYXkiIAoiSUQtMyIsIkEgYW5kIG5vdGhpbmcgZWxzZSIsIlRvZGF5Igo=
'ID-1'
'A "B"", C, D, E'
'Today'
'ID-2'
'A, B, C, D, E,F'
'Yesterday'
'ID-3'
'A and nothing else'
'Today'