my@new=map s|(^..)/(.*)|$2/$1|,@old;