in reply to Vertical split (ala cut -d:) of a file

perl -aF: -ple 'print $F[0]'

[download]

In Section Seekers of Perl Wisdom