foreach (@lines) { next if (/^#/); if(/^\s*(\S+)\s*=\s*(\S+)\s*$/) { $self->[CONFIG]->{$1} = $2; } }