🌈 ☯️Teresita🐧👭 on Nostr: Print all the four letter words in the Bible with #awk and #perl cat kjv.txt | perl ...

Print all the four letter words in the Bible with #awk and #perl

cat kjv.txt | perl -ne 'print map("$_\n", m/\w+/g);' | tr A-Z a-z | sort | uniq | awk 'length($1) == 4 {printf "%s ", $0}'