7 open( INFILE, "<$infile" ) or die "Bad input file \"$infile.\": $!";
11 foreach $line (@lines) {
13 $line =~ s/(\.\.\.|\.\s\.\s\.)/<ch.ellips\/>/g;
15 $line =~ s/\s{2,}/ /g;
16 $line =~ s/\&\s/\&\; /g;
17 $line =~ tr/\"\`\222\221/\'/;
18 $line =~ s/(Random\sNumber\sTable)/<a idref=\"random\">$1<\/a>/gi;
19 $line =~ s/(COMBAT\sSKILL|CLOSE\sCOMBAT\sSKILL|ENDURANCE|WILLPOWER|\bCS\b|\bEP\b)([^<])/<typ class="attribute">$1<\/typ>$2/g;
20 $line =~ s/(Action\sCharts?)/<a idref=\"action\">$1<\/a>/gi;
21 # \222 and \221 are some form of funky right and
22 # left quotes not present in ascii (of course)
24 # \227 is an em or en dash
26 $line =~ s/^\s*(.*)\s*$/$1\n/;