#! /usr/local/bin/perl -s
$COMM = <<EOB;

RMAIL 形式のファイルから $term にマッチする記事を探します。
引数に検索文字列を指定できます。

  % this_command -term=おっぱい師匠

たしかこんな感じでOKだと思います。

EOB
$termX = '鈴木理論';
if($term !~ /./) { $term = $termX; }

while(<>) {
  if(/^/) { $mode = 0; undef %X; $flag = 0; next; }
  if($mode < 1 && /^\*\*+ EOOH/) { $mode = 1; next; }
  if($mode == 1 && /^$/) { $mode = 2; }
  if($mode < 2) {
    if(/^Subject: /) { $X{'subj'} = $_; }
    if(/^From: /)    { $X{'from'} = $_; }
    if(/^Date: /)    { $X{'date'} = $_; }
  }
  else {
    if(/$term/) {
      if($flag < 1) {
        print "\n";
        foreach $i ( 'subj', 'from', 'date' ) {
          print $X{$i};
        }
        $flag++;
      }
      print "\n$_";
    }

  }
}