note
jwkrahn
<blockquote><i><c>
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*$//;
</c></i></blockquote>
<p>
That should be:
</p>
<c>
my ( $name, $value, undef, $status ) = split /\|/;
s/^\s+//, s/\s+$// for $name, $value, $status;
</c>
1050262
1050262