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