my ($this, $that, $the, $other) = split '/',$ENV{PATH_INFO};