1 while $path =~ s{(^|/)(\w+/\.\./|\./)}{$1};