s/^\s+//;
s/\s+$//;
s/\s+/ /g;

##</code><code>##

sub trim {
    my @out = @_ ? @_ : $_;
    $_ = join(' ', split(' ')) for @out;
    return wantarray ? @out : "@out";
}