my $data = "Antler embedded in mound at South Street, Avebury, Wiltshire, England. Comment (lab): Collagen fraction used";
while($data =~ /([A-Z]\S+?)\s/g)
{
        print $1." ";
}