Select Code to Download

perl -F: -lane 'print $F[0] if /^[A-Z]/' infile

perl -F: -lane 'push @x, $F[0] if /^[A-Z]/}{print for sort @x' infile