how can i convert data into string format? [duplicate]

Question

This question already has an answer here:

• Mapping over the last level of a list, or equivalent operations 4 answers

I have nested-lists in number format,like

 data={{1,2,3},{2,{3,4,50}},{4,5,6},{3,{3,{5,6}}}}

I want to convert each number into String format.For that purpose I tried the following code,but it doesn't working.

case1 :

 stringData=ReplaceAll[data, Identity -> String]

case2:

stringData= MapAll[ToString, data]

Testcase 1:

Part[stringData, 1, 2] + 10

I evaluated testcase,but it showing 12.

How can I solve this?

feel free,If you want to edit my question.

Answer 1

Building on your first try, an alternative to acl's approach is

l = {{1, 2, 3}, {2, {3, 4, 50}}, {4, 5, 6}, {3, {3, {5, 6}}}};
ReplaceAll[l, n_Integer :> ToString[n]]

which gives

{{"1", "2", "3"}, {"2", {"3", "4", "50"}}, {"4", "5", "6"}, {"3", {"3", {"5", "6"}}}}

Answer 2

Does Map like this

Map[
 ToString[#] &,
 {{1, 2, 3}, {2, {3, 4, 50}}, {4, 5, 6}, {3, {3, {5, 6}}}},
 {-1}
 ]

do what you want?