#!/usr/bin/perl

require 'jcode.pl';

open H2H, 'whatnew.ja.h2h';
  while (<H2H>) {
    $f = 1 if m#^UL#;
    next unless $f;
    last if m#^/UL# || 4 lt $i;
    unless (m#^UL#) {
      s#^LI \{[^}]*\}##;
      print STDOUT '<li>'.jcode::jis($_, 'euc').'</li>';
      $i++;
    }
  }
close H2H;