open(FILE, "file.txt") or die "$!";

while (<FILE>) {
  $_ =~ /$word/<em>$word</em>/;
}
print $_;

close(FILE);