while (<DATA>) {
  s/foo/bar/ if ($_ !~ /toto.*?foo/);
  print;
}

__DATA__
toto 4dsf4qsd foo
mama 432fz foo

##</code><code>##

toto 4dsf4qsd foo
mamaf 432fz bar