if ($_ =~ /^\*\*/) { for (1..$n) { $mail_msg .= <FH>; } } [download]
In reply to Re: regex/extracting whole lines by zuqif in thread regex/extracting whole lines by kelleher