gudn tach!
ich schlage deshalb etwas restriktiveres vor wie z.b.
~.*/(.*?)(?:_\d{3})?.\w+\z~
oder
~([^/.]*?)(?:_\d{3})?.\w+\z~Für mich zur Information, weil ich es nicht gefunden habe - wofür steht \z ?
\z matcht das ende eines strings. im gegensatz zu $ wird kein etwaiges newline gematcht.
eine gutes regexp-manual ist uebrigens perldoc perlre.
prost
seth