sub open_file {
    my ($self) = @_;

    # ...

    while (<CONFIG>) {
        # ... (String-Bearbeitung)

        my ($var, $value) = split(/\s*=\s*/, $_, 2);
        $self->{_config}->{$var} = $value;
    }

    # ...
}