It does not:

# on unix:
> perl -MFile::Basename=dirname -e'print dirname q(C:\\\\test\\test.pl
+)'
.
[download]

update: I'd probably use something like /([^\\/:\0]+\.(txt|jpg|etc))$/ to match the last "valid" part of the filename.