ftp.nice.ch/pub/next/unix/editor/nvi.1.76.s.tar.gz#/nvi-1.76/perl_scripts/forall.pl

This is forall.pl in view mode; [Download] [Up]

sub forall {
  my ($code) = shift;
  my ($i) = $VI::StartLine-1;
  while (++$i <= $VI::StopLine) {
    $_ = $curscr->GetLine($i);
    VI::SetLine($VI::ScreenId, $i, $_) if(&$code);
  }
}

1;

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.