find . | grep '^[A-Z]\{0,100}$' > seznam #prohleda adresar(i podadresare), najde vsechna velka pismena a ulozi je do souboru seznam
perl -pe 's/(.*)/mv \1 \L\1/' seznam > akce #nahradi vsechny velke pismena malymi
source akce #textovy skript do Tcl
rm seznam akce #vymaze akci

cat text.txt
| sed 's/./&~/g'
| tr 'A-Z ' 'a-z\n'
| tr '~' '\012'
| sort -i
| uniq -c
| sort -n
| sort -r
| tail -20

nacte soubot text.txt
globalne nahradi znaky
zmeni je do 8-ckove soustavy
seradi je podle cislenych hodnot
vlozi pocet vyskytu pred kazdy radek
seradi je podle cislenych hodnot
vytiskne poslednich 20 radku