open(TMPFILE,"<main.html");
while (<TMPFILE>) 
{
chomp; 

    my $data;
		my $in = join('',<TMPFILE>);
		if ($in =~ /(myword)\s+nextLine/)
		{
			print "Match = " . $1;	
			$data = $1;
		}
	
}

print $data  #I want this to print my match results here on myword
             # so it should print "myword" here but it doesnt.