#!usr/bin/perl --
use strict; use warnings;
use autodie qw/ open close /; # error checking
open my($file), '<', 'gene.txt'; 
while( <$file> ){
    print $1 if /^([^:]+):/;
}
close $file;