Select Code to Download

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

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

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

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

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