use File::Spec;

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

$directories = File::Spec->catdir( "NEWDIR", @dirs );
my $newpath = File::Spec->catpath( $volume, $directories, $file );