Select Code to Download

    my ($var,$val) = /^\s*(.*?)\s*=\s*(.*)/;
    $conf{$var} = $val;

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