s/\/[^\/]*\/\.\.\//\//g

which is exactly what I was looking for... but it doesn't work if there are two together, as in "foo/bar/../../baz/" So, put it in a loop:

1 while $foo =~ s/\/[^\/]*\/\.\.\//\//g;

dan
www.danheller.com