my %to_find = map { $_ => 1 } keys %{ $KLARF_REGEXP{$KLARF_VERSION} };

while ( <FILE> ){
    for my $field ( keys %to_find ) {
        next if !/$KLARF_REGEXP{$KLARF_VERSION}{$field}/;

        if ( @- > 1 ) {
            $summary->{$field} = $1;
            LogMsg( "Found $field $summary->{$field}" );
        } else {
            LogMsg( "Found $field" );
        }

        delete $to_find{$field};
    }
}

die if keys %to_find;

##</code><code>##

my $file; { local $/; $file = <FILE>; }

for my $field ( keys %{ $KLARF_REGEXP{$KLARF_VERSION} ) {
    die if !/$KLARF_REGEXP{$KLARF_VERSION}{$field}/;

    if ( @- > 1 ) {
        $summary->{$field} = $1;
        LogMsg( "Found $field $summary->{$field}" );
    } else {
        LogMsg( "Found $field" );
    }
}