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