my @words = $_ =~ m/\b[A-Z]+\b/g;