if ($_ =~ /^\*\*/)
  {
    for (1..$n) { $mail_msg .= <FH>; }
  }