in reply to regexp problem

from perlfaq: 
  for ($string) {
        s/^\s+//;
        s/\s+$//;
    }

[download]

In Section Seekers of Perl Wisdom