my $path = 'C:\somedirectory\anotherDirectory\WorkingDirectory\myFile.txt';
my ($volume,$directories,$file) = File::Spec->splitpath( $path );
my @dirs = File::Spec->splitdir( $directories );

my $partial = = File::Spec->catfile( $dirs[-1], $file );