my @fields = split(/\|/);
    my $name = $fields[0];
    $name =~ s/\s*//;
    $name =~ s/\s*$//;
    my $value = $fields[1];
    $value =~ s/\s*//;
    $value =~ s/\s*$//;
    my $status = $fields[3];
    $status =~ s/\s*//;
    $status =~ s/\s*$//;
[download]

That should be:

    my ( $name, $value, undef, $status ) = split /\|/;
    s/^\s+//, s/\s+$// for $name, $value, $status;
[download]