ひうらさん:
> > やっぱり、引用部分をのぞいてカウントしたいですよね。
> 
> げげ ^^;;
> 簡単にできるようならやってみましょう。
> #メールヘッダを取るのもたいへん
ありゃ? 今書いたこんなんじゃだめすか?
#!/usr/local/bin/perl
while(<>) {
  $body = 1 if (!$body && /^$/);
  next if ($body && /^>/);
  print if $body;
}
あんいー ^_^;
                                さいとう ゆたか
                                yutaka@vsp.cpg.sony.co.jp