my ($id, $desc, $num1, $num2 ) = split /\t/; $id =~ s/(\s*)$//; $desc =~ s/(\s*)$//;