while(my $line = <INHANDLE>)
{
   $line=~s/word1/word2/;
   print OUTHANDLE $line;
}