Select Code to Download

sub{my%r;for(split$",shift){$h=$p=$i=0;while(/./g){if($p){$h+=('/'eq$&
+)*2-1if$&eq$p}else{$h='/'eq$&}$p=$&;$r{$i++,$h}=1}}keys%r}