sub trim { my @out = wantarray ? @_ : shift; return "" unless @out; for (@out) { $_ = "" => next unless defined; tr/|\n\r//d; s/^\s+|\s+$//g; } return @out; }