while(<DATA>)
{
 unless((/^\s$/) | (/^#/))
 {
 $config{$`}=$',if(/=/);
 }
}