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?