$realpath = join(q//, split(/.[^\/]+$/,$realpath));