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}