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