If you're going to split and use a hash to check for uniqueness, its still possible to retain the original order (first occurances only, of course)

my %seen;
$text = join(' ', grep !$seen{$_}++, split(' ',$text));
[download]

Though, this removes all the newlines as well....

-Blake