use File::Spec;

( $volume, $directories, $file ) = File::Spec->splitpath( $path );