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