Help for this page

Select Code to Download


  1. or download this
    while (<FH>) {
  s/^FOO/BAR/;
  print "$_";
}
  2. or download this
    while (s/^FOO/BAR/g) {
    1 ; # no op
}