Help for this page

Select Code to Download

Select or download this

while (<$fh>) {
  s/foo/bar/ and next;
...
} continue {
  print $_;
}