Select Code to Download

sub analyze {
  my $htree = shift;
...
    }
  }
}

...
  my @rules = keys %$rul;
...
  for my $k (@rules) {
    my @out = @{&proccode($str,$$rul{$k})};
...