my @parts = split /\\/, $path;