Select Code to Download

sub STORE {
    my $self = shift;
...
    my @vals = index($vals,"\0")!=-1 ? split("\0",$vals) : $vals;
    $self->param(-name=>$tag,-value=>\@vals);
}

sub STORE {
    my $self = shift;
...
    my @vals = defined($vals) && index($vals,"\0")!=-1 ? split("\0",$v
+als) : $vals;
    $self->param(-name=>$tag,-value=>\@vals);
}