open(TMPFILE,"<page.html") || die "Cant open: $!";
while (<TMPFILE>) 
{
chomp; 
		my $myFile = join('',<TMPFILE>);
		if ($myFile =~ /'(\d{3})wordONE/)
		{
			$data = $1;
		}	
}
close TMPFILE;

open(TMPFILE,"<page.html") || die "Cant open: $!";
while (<TMPFILE>) 
{
chomp; 
		my $myFile2 = join('',<TMPFILE>);
		if ($myFile2 =~ /(\d{3})wordTWO/)
		{
			$data2 = $1;
		}	
}
close TMPFILE;

#Do stuff with $data and #data2