Skript změněn z AWK do Perlu.