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" );
    }
}