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