in reply to Need to get multiple values.

This looks like it would split very handily like 
my %contents = split /[\s=]+/, $html_page;
print "@contents{'john.doe', 'john.doey'}\n";

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom