regex zeichen ersetzen

[seth_not@home]

gudn tach!

my $text = "\n\n\n\n\n"; # soll durch \n ersetzt werden
$text =~ s/\n+/\n/g;

> was aber leider nichts gewirkt hat.  
  
doch, danach ist $text=="\n". und sollte betriebssystem-unabhaengig sein.  
  
was andere waere:  
my $text = "  
  
  
  
";  
  
hier waere z.b. sowas wie s/[\n\r]+/\n/ angebracht.  
  
prost  
seth