Select Code to Download

sub parse_csv {
    my $text = shift;      # record containing comma-separated values
...
       push(@new, undef) if substr($text, -1,1) eq ',';
       return @new;      # list of values that were comma-separated
}

use Text::ParseWords;

sub parse_csv {
    return quotewords(",",0, $_[0]);
}