foreach my $bline (@blocklines) {
    chomp ($bline);
    $bline =~ s/^\s+//;
    $bline =~ s/\s+$//;

    print DEBUG "bline: \"$bline\"\n";

    my ($k, $v) = split m/\s*=\s*/ => $bline;
    $k or next;
    push @{$kvhash{$k}}, $v;
    }
[download]