正規表現

[0915 名無しさん＠お腹いっぱい。 2015/01/19(月) 12:37:39.32]

while (<>) {
$myline .= $_;
}
$myline =~ s/\A\n+//mx;
$myline =~ s/\n+\Z//mx;
print $myline;

perlはよく分からないけど
\A と \Z で最初と最後にアンカーおろして
\n+で指定すれば簡単か