while(<FH>)
  {
       chomp($_);
       $_ =~ s/^\s+//;
       $_ =~ s/\s+$//;
       if(($_ =~ /\A(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)/xmg) || ($_ =~ /number\=(\S+)/xmg))
             {
                     print "$1\t$2\t$3\t$4\t$5\t$6\n";
             }
  }