my %h = map {my($k, $v)=/^(.*?)=(.*)/; $v=[ $v=~/{(.+?)}/g ] if $v=~/}/; $k=>$v } grep {/=/} <DATA>;