Help for this page

Select Code to Download


  1. or download this
    open my $ih, '<', $fin or die "cannot open $fin for reading, $!"; 
    $ih =~ s/\n+/\n/g;
    
  2. or download this
    $ih =~ s/\n+/\n/g or warn "No subst\n";