$entry{$k} =~ /($regex->{extract})/ and $entry{$k} = $1;