Select Code to Download

 # find all the entities in the current file
  if (/entity\s+(\w+)\s+is/i) {
...
    push @entities, \%1;
  }

   push @entities, \%{$1};

use Data::Dumper;
...
}

print Dumper(%hash);

-_-_-_-_-_-_-_-_-_-_-_-
My memory concerns me
- but I forget why !!!