Seems like you're just interested in stuff of the form:

(\w+)=<(.*?)>
[download]

So something like this should help:

while (<$log>) {
    my $info;
    $info{$1}= $2 while (/(\w+)=<(.*?)>/g);
}
[download]