You might want to look into what the following cli options do for you:

perl -F':' -anE 'say $F[0]'