use Modern::Perl;

say +(split ':')[0] while (<DATA>);

__DATA__
BRCA1:breast cancer 1, early onset
TNF: tumor necrosis factor
OMG:oligodendrocyte myelin glycoprotein