Der Dateinamen bestimmen?

[Alex]

Hallo,

ich stehe vor dem Problem der Dateiname aus einem String herauszufiltern...

Es muss platformunabhängig sein und ich habe so probiert:

-----------------------
sub CheckFileName {

$_[0] =~ s/\w://;
    $_[0] =~ s/([^/\]+)$//;

$_[0] =~ s/..+//g;
    $_[0] =~ s/\s+//g;

return $_[0];

}
-----------------------

Ich erwarte bei der Übergabe von C:\Desktop\eine datei.tar.gz an meine Funktion ein Return-Wert: eine datei.tar.gz

Wo ist mein Problem?

Danke