open (FILE, "<file.html") || die "couldn't open file: $!\n";
my @data = <FILE>;
my $file = join /\n/, @data;
if ($file =~ m{$searchword}g) {
	#do something
}