sprawdz przetestowane, uzywa awk
dodałem komentarze
sprawdz awk->perl