my @fields = split ',', $data, 5;