$_ =~ s/,(?:"[^"\r\n]*"|[^,\r\n]*)$//m;