$ perl -lpne 's/\d/qw(zero one two three four five six seven eight nine)[$&]/ge' num