Perl Regex to take the UC Words.

[Anonymous Monk]

Hello Monks,

I have a doubt on how to take the total UC words out of a line.

Example1:

---------

$string = "BROUGHTON VETERINARY GROUP. Leicestershire mixed practice seeks experienced vet to replace assistant relocating to Scotland";

Here I need to take out the "BROUGHTON VETERINARY GROUP" in a new $string_new.

Example2:

---------

$string = "GIRLING AND BOWDITCH VETERINARY SURGEONS We are looking for an experienced vet for our 5 vet mixed practice.";

Here I need to take out the "GIRLING AND BOWDITCH VETERINARY SURGEONS" in a new $string_new.

Example3:

---------

$string = "STANHOPE PARK VETERINARY HOSPITAL. Due to a pregnancy epidemic we are looking for 2 new vets, 100% small animal hospital in County Durham.";

Here I need to take out the "STANHOPE PARK VETERINARY HOSPITAL" in a new $string_new.

Dear Monks Is it possible using a regex? Kindly help!

Thanks in advance.