Help for this page

Select Code to Download

Select or download this

use Text::ParseWords;
@words = quotewords('\s+', 1, $text);
$text = join ' ' => @words;