Re: Re: getting 0 to print

[rbc]

Thank you wise monk yet if I modify my sub trim to ...

55 sub trim { 
56     my @out = @_; 
57    if ( !defined(@_)) {return "";}
58    if ( $#out == -1 ) {return "";}
59    for(@out) { 
60        #next if !($_);
61        #if (!($_)) { $_ = ""; }
62        s/^\s+//; 
63        s/\s+$//; 
64        s/\|//g; 
65        s/\n//g; 
66        s/\cM//g; 
67        s/\r//g; 
68    } 
69    return wantarray ? @out : $out[0]; 
70}

... I get these messages ...

Use of uninitialized value in join or string at ./b.pl line 49
Use of uninitialized value in join or string at ./b.pl line 62
Use of uninitialized value in join or string at ./b.pl line 63
... etc 

I would like to not have any extraneous output.
Any suggestion?