# obfuscated?  You should have seen it before I cleaned it up
        while (<>) {
          my $changed;
          while (/(.*?)((?:(.)\cH\3)+)/s) {
            my $tobold = $2;
            my $start  = length $1;
            $tobold =~ s/(.)../$1/g;
            substr($_, $start, 3 * length $tobold) = "<b>$tobold</b>";
          }
          while (/(.*?)((?:_\cH.)+)/s) {
            my $toital = $2;
            my $start  = length $1;
            $toital =~ s/..(.)/$1/g;
            substr($_, $start, 3 * length $toital) = "<i>$toital</i>";
          }
          print;
        }