$data=~s!((.*)/.*/)\2!$1!g;