/^john.doe/m
/^john.doey/m
/^doe/m
/^doey/m

##</code><code>##

john.doe=18192812
tim=lasdflkdsajf
john.doey=jr-1234
doe=12912039
bob=sdfasfd
doey=jr-1235

##</code><code>##

@data = split /\s+/, $html_page;

##</code><code>##

@data = ("john.doe = 18192812", "tim = lasdflkdsajf", "john.doey = jr-1234", "doe = 12912039", "bob = sdfasfd", "doey = jr-1235")

##</code><code>##

print "$johndoevalue $johndoeyvalue\n";
print "$doevalue and $doeyvalue\n"