A UNIX tool written in perl to cd back to a directory matching a pattern: cd ../../../../.. no longer!