#! usr/bin/perl -w 
open(FILE,"<gene.txt");
my @lines=<FILE>;
close(FILE);
foreach my $line(@lines)
{
 if($line=~/:/)
 {
  print "$`\n";
 }
}

##</code><code>##

BRCA1
TNF
OMG