Help for this page

Select Code to Download


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