Re: Perl Regex to take the UC Words.

in reply to Perl Regex to take the UC Words.

Use character class with uppercase letter [A-Z] with word boundary \b

use strict;
use warnings;
use Data::Dumper;

while(<DATA>)
{
    my @array = $_ =~ m/\b([A-Z]+)\b/g;
    print "@array\n";
}

__DATA__
BROUGHTON VETERINARY GROUP. Leicestershire mixed practice seeks experi
+enced vet to replace assistant relocating to Scotland
GIRLING AND BOWDITCH VETERINARY SURGEONS We are looking for an experie
+nced vet for our 5 vet mixed practice.
STANHOPE PARK VETERINARY HOSPITAL. Due to a pregnancy epidemic we are 
+looking for 2 new vets, 100% small animal hospital in County Durham.
[download]

All is well

In Section Seekers of Perl Wisdom