http://www.perlmonks.org?node_id=1027212


in reply to Some assistance with splitting variables

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]
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

In Section Seekers of Perl Wisdom