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