Select Code to Download

use warnings;
use strict;
...
b=6
c=
d=7

$VAR1 = {
          'a' => '5',
          'b' => '6',
          'd' => '7'

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