my ($text,$endung) = $file =~ m/^(.*)\.(.*?)$/;