For parsing the format you can use my DataExtract::FixedWidth to help you with this project, I should have the next version up today.

my $de = DataExtract::FixedWidth->new(
  cols => ['table 1',  'table 2' , 'key 1', 'key 2'],
  header_row => 'table 1  table 2  key 1  key 2'
)
[download]

The next version would be slightly easier for this format.

my $de = DataExtract::FixedWidth->new( heuristic => \@lines );
for ( @lines ) {
  next unless m/\w/; ## skips the definition row of ----
  $de->parse_hash( $_ )
}
[download]