Select Code to Download

my ($value) = ($row =~  /.*,(.*)/); # gets value after the last comma
if (looks_like_number($value))
...
    # DO STUFF ...
}
# DO STUFF ...

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