#!/usr/local/ymir/perl/bin/perl


# setting
#my $code = 'jis';
my $code = 'sjis';


## 

use strict;
use Data::Dumper;
use Unicode::Japanese;

my $data = '';

while(<>) {
  $data .= $_;
  if(length($data) > 10000000) {
    &chasen($data);
    undef $data;
  }
}
&chasen($data);


sub chasen {
  my $str = shift;
  $str = Unicode::Japanese->new($str, 'jis')->euc;
  $str =~ s/[a-zA-Z0-9\r\-\@\(\)\{\}\[\]\+\^\&\*\^\#\!\%;:\.,\?\=\<\>\"\'\/\$]+/ /g;
  
  open(FILE, ">wordcheck.$$") or die;
  print FILE $str;
  close(FILE);
  open(CHASEN, "chasen wordcheck.$$ |") or die;
  while(<CHASEN>) {
    $_ = Unicode::Japanese->new($_, 'euc')->get;
    print;
  }
  close(CHASEN);
  unlink("wordcheck.$$") or die;
}