in reply to Re^3: removing redundantwhitespace
in thread removing redundantwhitespace

for ($text) {
   s/^\s+//gm;
   s/\s+$//gm;
   s/(\s)\s+/$1/g;
}

[download]

In Section Seekers of Perl Wisdom