Select Code to Download

Found in /System/Library/Perl/5.8.1/pods/perlfaq4.pod
       How do I strip blank space from the beginning/end of a string?
...
               s/^\s+//;
               s/\s+$//;
           }