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

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