my $data = 'THIS IS a TEST SENTENCE Foo BAR'; #### THIS IS TEST SENTENCE BAR #### THIS IS TEST SENTENCE BAR #### my @uc_words = $data =~ /(appropriate_regex_goes_here)/g;
## THIS IS TEST SENTENCE BAR ##
## my @uc_words = $data =~ /(appropriate_regex_goes_here)/g;