Select Code to Download

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;