Sorry,
hier noch das ,was ich bis jetzt fabrizieren konnte:

[perl]
$Kugelanzahl=50;
$Zeit=2;
$Zeitabstand=0.001;
$Zeitschritte=$Zeit/$Zeitabstand;
open(DATEI, "<VelocityPlot.dem");
open(SESAM, ">test.inp");

while (<DATEI>)
# {
# @line = split / /, $_;
#}
{if ($. > $Kugelanzahl*$Zeitschritte-$Kugelanzahl)

{ print SESAM "a,b,c,",$_ }}

#print $., " Zeilen gelesen";
close(DATEI);
close(SESAM);

a,b,c soll er hier nur vor jede geschriebene Zeile setzen.