my @uc_words = $data =~ /(appropriate_regex_goes_here)/g;