if (/^\s*(.*?)\s*=\s*(.*)/) { $conf{$1} = $2; } else { die "slowly and painfully"; }