Another function is splitpath from File::Spec.

use File::Spec;
($volume,$directories,$file) = File::Spec->splitpath( $path );
# process $file
[download]

This will of course work for / (unix), \ (win) and : (mac), unlike your regex. Still so should File::Basename.