my @uc_string = ($data =~ /(\b[A-Z]+\b)/g);