my $fh;


  open $fh , "DeineDatei";

my $line;
my %conf;
   while($line = <$fh>)4
   {
        $line =~ /^(.*)\s*(.*)\s*$/
        $conf{$1} = $2;
   }