while (<FH>) {
  s/^FOO/BAR/;
  print "$_";
}

##</code><code>##

while (s/^FOO/BAR/g) {
    1 ; # no op
}