my ($val) = ($row =~ /^(.*)\,[^\,]*$/);