Zeilenumbruch Probleme mit Array

[steckl]

Nun will ich jeden String in dem Array um einen weiteren String ergänzen und in ein neues Textfile schreiben.
versuchs mal so:
open (DATEI, ">file") or die $!;
      foreach (@array){
@array[$count] =~ s/\n//;
      print DATEI 'pass' .@array[$count] . "pass\n";
      $count++;
      }
      close (DATEI);

Ich habs gerade damit versucht, aber leider funktioniert es nicht

siehts immer noch genauso wie vorher aus? wenn du unter windows arbeitest kann es sein, dass du
@array[$count] =~ s/\012|\015//g;
schreiben musst.

sg, steckl