my ($value) = $row =~ /.*,(.*)/; # and $row =~ s/,[^,]*$//;