my @words = m/\b([A-Z]+)\b/g;