Select Code to Download

while (<$fd>) {
  my %href = map { split '=', $_, 2 } split ';';
  my $id = (split '\.', $href{TOKEN})[1];
  $tokens{$id} = \%href;
}