#!/usr/bin/perl
use strict;
use warnings;

my $in = ("/home/ki/Downloads/currenthumanccds.txt");
my $out = ("/home/ki/output.txt");

open (IN,"/home/ki/Downloads/CCDS.current.txt") or die "Cant open file: $!";
open (OUT,">/home/ki/output.txt") or die "Cant open file: $!";

while(<IN>){
	chomp;
	my@fields = (split/\t/);
	if ($fields[0] =~ m/16/ && $fields[6] eq"-" && $fields[5] =~ m/Public/){;
		print OUT "$fields[0]	$fields[2]	$fields[6]	$fields[5]\n";
	}
}