1 while ($path =~ s{ [^/]+ / \.\. / }{}x);