my @new = map {s!(..)/(.*)!$2/$1!;$_} @old;