$datei =~ /([^\/\\]*?)\.([^\.]+)$/;

also was das hier sein soll versteh ich nicht wirklich aber ich hab auf cpan gelesen dass basename :

basename prints the file component of a path. A second argument to basename is interpreted as a suffix to remove from the file. If the suffix is sandwiched between slashes, the suffix is considered a Perl regular expression, anything at the end of the string that matches is removed before printing it out.

das macht nicht das was ich will.. ich will ja grad die suffixe....

du schneidest mit basename die suffixe ab und gibst mir alles vor dem suffix..

ich will genau den umgekehrten effekt eigentlich.. ich will dass er mir alle suffixe gibt.
wie gesagt: habe 3 dateien. sie heissen:


P007201031.a00
P007201031.JPL
P007201031.xls

ich möchte dass er die dateien eine nach der andere im pfad durchgeht und mir alle suffixe rausfiltert die nicht JPL und a00 sind...
das heisst P007201031.xls ist in diesem fall die interessante Datei die ich gespeichert haben möchte,der ich am ende (meinetwegen mit split) das suffix xls separieren kann.

Ich möchte die funktion eben nach dem ausschlussprinzip haben weil ich nicht weiss ob es ne xls doc tif oder sonstwas datei ist die ich am ende haben muss. ich weiss nur dass die JPL und a00 datei nicht interessant für mich sind..\n\n

<!--EDIT|shaihulud|1146231802-->