> my $value = "aa\nbb\n\n\n\n";
> $value =~ s/\n/\r\n/g;
> my @lines = split(/\n/,$value);
> my $tmp;
> foreach $tmp (@lines){
> 	$tmp =~ s/\r//g;
> 	print "'$tmp'<br>";
> }
> こんな感じ\rの部分はなんでも良い

ありがとうありがとう(;´Д`)参考にさせてもらうよ

参考：2007/02/07(水)03時43分50秒