Untested:

$data = join " ", $data =~ /\b[A-Z][a-z]*\b/g;
[download]

This assumes you don't have accented letters (nor non-Western letters), and it may not do what you want for words like "Don't" and "O'Hara".