Select Code to Download

open(TMPFILE,"<page.html") || die "Cant open: $!";
my $myFile = join('', map {chomp;$_} <TMPFILE>);
my ($data1, $data2) = $myFile =~ /'(\d{3})wordONE.*?(\d{3})wordTWO/;

print "$data1:$data2\n";