my $text = join '', <TEXTDATEI>;