open fi,"$ARGV[0]";
chomp(@s=<fi>);

open fo,">$ARGV[1]";

for($i=0;$i<@s;$i++)
{	@a=split(/\t/,$s[$i]);
	print fo "$a[0]";
	for($j=1;$j<@a;$j++)
	{	if($j!=2 && $j!=1)
		{	print fo "\t$a[$j]";
		}
	}
	print fo "\n";
}