#!/usr/bin/perl @files = glob "*.htm" ; for $file (@files) { open F, "$file" or die "Can't open $file\n" ; @f = ; close F ; $f = join('', @f) ; for (($f)) { s///g ; s!
Life Lexicon Home Page!
Introduction \| Bibliography
!g ; s|
Life Lexicon
||g ; s:^Introduction \|::gm ; s:^Introduction \|::gm ; s:Z \|:Z:g ; s:Z \|:Z:g ; s|^Bibliography||gm ; s|^Bibliography||gm ; s||
|gm ;
      s|^
|
|gm ; # fix problems in lex_[hps].htm s|\n-|\n-|g ; s|-\n|-\n|g ; # fix problem in lex_l.htm s|\nMar|\nMar|g ; s|1973\n|1973\n|g ; } open F, ">$file" or die "Can't write $file\n" ; print F $f ; close F ; }