#!/usr/bin/perl -w
while (<>) {
    chomp $_;
    @line = split /\t/, $_;
    printf "$_\n" if (@line == 2);
}
