Hallo danke für deine Rückmeldung @GwenDragon,

habe gerade mal deinen Code probiert, bekomme aber folgenden Fehler angezeigt:
Unknown verb pattern '' in regex; marked by <-- HERE in m/(?i)(*) <-- HERE $/ at
c:/Perl/lib/File/Basename.pm line 166.