Select Code to Download

foreach my $k (@k) {
  next unless $s =~ m/(.)$k(.)/ ;
  next if (($1 eq "\0") && ($2 eq "\0")) ;
  delete $h{$k} ;
} ;