$zeile =~ s/[\r\n]+$//; # brav Zähne putzen, ähhm… entferne Zeilenenden
push @lines, $zeile;   # und nun brav ins Array husch husch… ;)