Perl怎样去除空白行?

Perl怎样去除空白行?
文本如下：
Hello,how are you?I'm fine thank you.
And you?I'm fine too.
The End
如何除空白行,使文本只剩下3行有字的?次序位置都不变.

可以用正则表达式替换,例子程序：
my $s=Hello, how are you? I'm fine thank you.
And you? I'm fine too.
The End;
print $s;
print \n\n;
$s =~ s/\n+/\n/g;
print $s;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息