perlquestion
Anonymous Monk
I'm try to extract a sequence of upper case words. Using the following code works for just one word though. How do I modify my regex telling it to grab all instances of UC words in a row?
<code>
my $data = 'this is a TEST SENTENCE Foo Bar';
my $uc_string = $1 if ($data =~ /([A-Z]+)\b/);
# This grabs 'TEST' but not 'TEST SENTENCE' ???
</code>
Thanks
15