open(DATEI, "liste.txt");
my $response = join("", <DATEI>);
close(DATEI);

my @positionen = split(/\n\S/, $response);