open(TMPFILE, "page.html") or die("Can't open page.html: $!")
my($data, $data2);
{
  local $/;
  local $_  = <TMPFILE>;
  ($data)   = /'(\d{3})wordONE/;
  ($data2)  = /(\d{3})wordTWO/;
}
close(TMPFILE);