while ( $path =~ s#(/[^/]+)?/\.(\.)?/#defined($2) ? "/" : "$1/"#e ) {;}