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