Your while loops are oddly constructed. You are discarding the first line after chomping it and then slurping the rest. Each while loop only runs once.

Do you mean to do something like this?

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;
[download]

I'm made suspicious by your doing this on an html file. Are you doing something better handled by some HTML::Parser module?

(Added) Thanks, jeffa, for spotting a typo in the code. Repaired.

After Compline,
Zaxo