Help for this page
s/^\s+//; s/\s+$//; s/\s+/ /g;
sub trim { my @out = @_ ? @_ : $_; $_ = join(' ', split(' ')) for @out; return wantarray ? @out : "@out"; }