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