Select Code to Download

use Modern::Perl;

my $data = "Antler embedded in mound at South Street, Avebury, Wiltshi
+re, England. Comment (lab): Collagen fraction used";
...
my @results = $data =~ /\b[[:upper:]][[:lower:]]*?\b/g;

say "@results";