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