Select Code to Download

use strict;
use warnings;
...
   my ($id,    $desc) = split(/\t/, $rest, 2);
   $hash{$id} = $desc;
}

while (<$fh>) {
   my ($id, $desc) = /^[^:]*:([^\t]*)\t(.*)$/;
   $hash{$id} = $desc;
}