use warnings;
use strict;
my @out;
while (<>) {
    chomp;
    my @fields = split /:/;
    push @out, $fields[0] if /^[A-Z]/;
}
print "$_\n" for sort @out;