open( FILE, "+<", $fileName ) or die "can't open file: $!";

while( <FILE> )
{
   if( s/foo/bar/g )
   {
      seek( FILE, -(length), 1 ) or die "can't seek: $!";
      print FILE;
   }
}