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

