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