Select Code to Download

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

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