linux-l: perl und regexpr

[Ulrich Wiederhold]

Hallo,
nach einem Neustart hat alles wieder funktioniert!
Ich hasse sowas!
:(

Wenn ich Euch vielleicht noch ein kleines Problem anbieten könnte....
Es soll die erste Zeile einer Datei gelöscht werden. Ich mache das
bisher so:
...
open(FILE, "<$location");
@getfile = <FILE>;
close(FILE);
splice(@getfile,0,1);
`rm $location`;
open(DEL, ">$location");
print DEL "@getfile";
close(DEL);
...

Das führt nur dummerweise dazu, daß immer zu Begin jeder Zeil
"whitespace"-Character eingefügt werden, sodaß ein Teil der vorherigen
regexpr. erst nötig wird.

Woran liegt das?
Wie kann ich das besser lösen?
Bsp.:
1. Mal speichertn:
 texttexttext

2. Mal Speichern:
  texttexttext

3. Mal Speichern:
   texttexttext

Ob immer genau 1 whitespace eingefügt wird, weiß ich nicht.


Gruß
Uli