Select Code to Download

use strict ; use warnings ;

...
} ;

print join(', ', map "'$_'", sort keys %h), "\n" ;

  my @k = sort { length($b) <=> length($a) } keys(%h2) ;

...
    next if pos($s) == shift(@a) ;
    delete $h2{$k} ;
  } ;

  my @k = sort { length($b) <=> length($a) } keys(%h) ;

...
    delete($h4{$k}) and next if ($s =~ m/$k/) ;
    $s .= $k . "\0" ;
  } ;

  my @k = sort { length($a) <=> length($b) } keys(%h3) ;

...
      last ;
    } ; 
  } ;