#!/usr/bin/perl -w

while (<>)
{
	if (/^#/)
	{
		$first_line=1;
	}
	else
	{
		if ($first_line)
		{
			$first_line=0;
			@tab=split(/\t/,$_);
			pop(@tab);
			$eval=pop(@tab);
			$eval =~ s/e/1e/ if ($eval =~ /^e/);
			if ($eval <= 1e-5)
			{
				print "$tab[0]\t$tab[1]\n";
			}
		}
	}
}