while (<DATA>) {
    chomp;
    my ($k, $v) = split /=/;
    $info{$k} = (length $v) ? $v : 666;
}