while (<CONF>)
{
   chomp;
   s/#.*//; #kein newline
   s/^\s+//; #keine kommentare
   s/\s+$//; #keine führenden whitespaces
   next unless length;
   my ($var, $value) = split(/\s*=\s*/,$_,2);
   $config{$var} = $value;
}