open(TMPFILE,"<page.html") || die "Cant open: $!";
while (<TMPFILE>) 
{
    chomp; 
    my $myFile = join('',<TMPFILE>);

    if ($myFile =~ /'(\d{3})wordONE/){
        $data = $1;
    }

    if ($myFile =~ /(\d{3})wordTWO/) {
        $data2 = $1;
    }
  }
close TMPFILE;