use strict; use warnings; open (FILE, "test.txt") || die "Kann Datei nicht \x94ffnen!\n$!"; while (my $SET = ) {     my @SET_SPLIT = split /\$/, $SET;     print "$_\n" foreach (@SET_SPLIT); } close FILE; my $ende = ;