open my $fh, "<", "rechner.lst" or die $!;
open my $wfh, ">", "neu.lst" or die $!;
while (<$fh>) {
  my $data = (split /\./, $_)[0];
  print $wfh "$data\n";
}