http://www.perlmonks.org?node_id=35306


in reply to How do I extract a file name from a path string

The File::Spec module will let you separate the volume, without having to worry about the suffix:
use File::Spec; ( $volume, $directories, $file ) = File::Spec->splitpath( $path );