print join'/',grep{if(!$u{$_}){$u{$_}=1}}split'/',$data;