plscript/hare-tort.pl
    --------------------------------------------------
    #data の中にある aesop.txt を読み込み用に開く
    open (IN, "<", "data/aesop.txt") or die;

    #hare_and_tortoise.txt を書き込み用に開く
    open (OUT, ">", "hare_and_tortoise.txt") or die;

    #"\n\n\n" (空行２つ) を RS にする＝話の単位で読み込む
    $/ = "\n\n\n";

    #レコード (＝話) を一つづつ読み込み，
    while(<IN>){

       #もし hare(s) と tortoise(s) 両方を含んでいたら
       if (/\bhares?\b/i and /\btortoises?\b/i) {

          #出力ファイルに書き出す
          print OUT;

       }

    }

    #終了
    exit;
    --------------------------------------------------