Is '=>' a valid key? otherwise, I'd just use split:

my ($key, $val) = split /\s*=>\s*/, $text, 2;
$Data{$key} = $val;
[download]

And then massage $key and $val to remove quotes and escapes, if needed.

-- Dan