use Modern::Perl;

my $data = "Antler embedded in mound at South Street, Avebury, Wiltshire, England. Comment (lab): Collagen fraction used";

my @results = $data =~ /\b[[:upper:]][[:lower:]]*?\b/g;

say "@results";