Select Code to Download

open my $fd, '<', 'foo' or die open "$!\n";
my ($h, @arr);
## assuming <eor> and <eoh> are always at the end of their lines
...
  $c++ if /<eor>$/;
}
close $fd;

$VAR1 = [
          {
            '<time_on:6>' => '213400',
...
            '<call:5>' => 'VE6GG'
          }
        ];