perlで改行の数を得るにはどうしたらいいでしょうか?