{
    my @chunks  = split /\\/ => $file, 3;
    my $network = join  "\\" => @chunks [0, 1];
    my $path    = $chunks [2];
    ...
}