my $file = 'Perl.exe'
my ($text,$endung) = split(/\./, $file);