Dateiname bei Upload extrahieren?

[Siechfred]

my $filename = (split /[\\\/], $fullpath)[-1];

Muss natürlich so lauten:

my $filename = (split /[\\\/]/, $fullpath)[-1];

Siechfred