while ($line =~ m{
           # Either some non-quote/non-comma text . . . 
           ( [^",]+ )
           # . . . or . . . 
            |
           # . . . a double-quoted field ("" allowed inside)
           " # field's opening quote
            (   (?: [^"] | "" )*   )
           " # field's closing quote
        }gx)
{
   if (defined $1) {
       $field = $1;
   } else {
       $field = $2;
       $field =~ s/""/"/g;
   }
   print "[$field]"; # print the field, for debugging
   Can work with $field now . . . 
}




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl