if ( $_ =~ m/:(\d+)/ ) {
        my $name = $1;
	    print OFILE "$name\n";
    }