my($root,$path)=$funnyspec=~m!([^/]+)([^\]+)!;
my @parts=split('/',$path);