#!/usr/bin/perl
use strict;
use warnings;

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

my @result;
while ($data =~ /\b([A-Z][a-z]*)/g) {
    push @result, $1;
}
print join(' ', @result), "\n";