$ cat num Hello 12345 world 23456 777381 89651 #### $ perl -lpne 's/\d/qw(zero one two three four five six seven eight nine)[$&]/ge' num #### $ perl -lpe 's/\d/qw(zero one two three four five six seven eight nine)[$&]/ge'