This doesn't account for whitespace on either side of the =, which is too strict for my taste, so i changed the split line to this:

my ($key, $variable) = split(/\s*=\s*/,$_,2);
[download]