use strict;
use warnings;

my %configuration;
while (<DATA>) {
  chomp;
  next if not length $_;
  my ($key,$value) = split /\s+=\s+/;
  $configuration{$key} = $value;
}

# irgendwas aus der Konfiguration verarbeiten
# hier als Test ausgeben
print "$_ " for (%configuration);

__DATA__

allowed = .htm
mail = test@example.com