$hash{$1} = substr($data, pos($data)+1, $2) while ($data =~ /(\w+)\[(\
+d+)\]/g);
[download]

If keys can contain other values than \w, you might want to change that. Otherwise, this works just fine.