open TMPFILE, "< page.html"
    or die "Cant open: ", $!;
my (@data, @data2);
while (<TMPFILE>) {
    push @data, $1 if /'(\d{3})wordONE/;
    push @data2, $1 if /(\d{3})wordTWO/;
}
close TMPFILE;