in reply to Replacing whitespaces with a regex

for ( @array ) { s/\s\s+$/ / }

[download]
or 
 
s/\s\s+$/ / for @array;

[download]
since essentially you are testing all the words to see if they fit the pattern anyhow.

In Section Seekers of Perl Wisdom