[Bioperl-l] Perl parsing

[lumos lumos]

Hello,

I have a text file(tab-delim) with some gene names as shown below.

*BRCA1: breast cancer 1, early onset

TNF: tumor necrosis factor

OMG: oligodendrocyte myelin glycoprotein*

I would like to get the list of gene name BRCA1,TNF,OMG that is before the
colon(:) .
How do I parse in perl this text file with this list of genes?

Thanks in advance.
LM