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