Leerschritt am Ende von Textzeile entfernen

[andrea]

Hallo,

Wißt Ihr was ich bei cgi gegen Leerschritte am Ende einer Textzeile machen kann?

Ich speichere Eingaben aus einem Textfeld (Textarea) in eine txt.-Datei.

Das klappt auch prima (variable1,variable2,variable3)!

Aber wenn ich die Textdatei dann wieder öffne mit dem Script, dann
hängt es hinten einen Leerschritt an die Textzeile (variable1,variable2,variable3 ) und der Leerschritt sabotiert mir meinen Programmablauf.

Ich öffne mit:

sub data {

open (DATA, "data.txt");
while (<DATA>) {

$_ =~ s/_0A/\ /g;
$_ =~ s/_0D/\ /g;
$_ =~ s/\n//g ;
$_ =~ s/^\s+$//;
$_ =~ s/^\s+(.*)$/$1/;
$_ =~ s/( +)$//;                 ## remove spaces at end
$_ =~ $1 if m/^\s*((.*\S)?)/;

push (@data,$_);
  
}
close(DATA);

Sorry, bin noch ganz neu bei cgi.
Welche Wirkung hat "push" ?

Wäre Euch sehr dankbar für eine Info!!

andrea