# NOTE: I have already prepended pwd if needed

#remove .
while( $path =~ m#/\./# ) {
    $path =~ s#/\.#/#;
}

# remove ..
while( $path =~ m#/[^/]+?/\.\./# ) {
    $path =~ s#/[^/]+?/\.\.#/#;
}