my %contents = split /[\s=]+/, $html_page;
print "@contents{'john.doe', 'john.doey'}\n";