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