#!/bin/perl
# perl script to take care of some Microsoft Word html conversion issues and 
# some misc items that html messes up for display

while(<>){
  s/\.  /\.\n/g;
  s/\</\n\</g;
  s/(et al)\./\<nobr\>$1&#046\<\/nobr\>/g;
  # the fixes below are not really needed, they were an artifact of this
  # script predecessor
  # s/( [0-9]+\.[0-9]+)/<nobr\>$1\<\/nobr\>/g;
  #  s/([A-Z])\.([A-Z])/$1&#046$2/g;

  print;
}