#! /usr/local/bin/perl
$COMM = <<EOB;
=======================================================
EUC で書かれたテキストファイルを '。' で切り分ける。
また '。' がない文でも一定以上の長さになったら適当に
改行を入れる。

探すよりも書いた方が早そうだったので自作 (^_^;
=======================================================
EOB
undef $COMM;
# -------------------------------------------------------
$linew = 70;
$CR = "\n\n";
$donot_line_head = "(、|。|っ|」)";
$donot_line_end = "(「|の)";
# -------------------------------------------------------
while(<>) {
  undef $obuf;
  s/[ \t\r\n]*$//;
  while(0 < length($_)) {
    # ちょっと危ないループ
    $w = 2; if(/^[ -~]/) { $w = 1; }
    $car = substr($_,0,$w); $cdr = substr($_,$w);
#    if($car eq '。' || $car eq '、') {
    if($car eq '。') {
      $l = 99999;
    }
    $obuf .= $car;
    $l += $w;
    if($linew <= $l && $cdr !~ /^${donot_line_head}/) {
      if($obuf =~ /${donot_line_end}$/) {
        $obuf = "$`$CR$&";
        $l = length($&);
      } else {
        $obuf .= $CR;
        $l = 0;
      }
    }
    $_ = $cdr;
  }
  print $obuf;
}