($root) = $root =~ m!^([\w\d\-_/\.]+)$!;