open ...yadayadayada

while ( ) {
  foreach $word (keys ( %keywords) ) {
     s/$word/$word/ig;
  }
print OUT $_;
}