in reply to regex/extracting whole lines

mysql import!?
if ($_ =~ /^\*\*/) { for (1..$n) { $mail_msg .= <FH>; } }
the 'qif;