This sounds like a job for split()!

$string = join(' ', split(/ +/,$string));
[download]

May work. Usually, I would split on white space, vs blanks, so I would usually do something like

$string = join(' ', split(/\s+/,$string));
[download]

If this is part of a more general text processing issue, I'd suggest taking a look at Text::Wrap or Text::Autoformat