Помогите с скриптом PERL

Автор: sk-pank Дата: 18.01.2007 17:09 Сдраствуйте.
Я пока ещё ламер в этом деле, но учится надо как нибудь на С++.
Может кто поможет, с скриптом.
Есть такая гадость, нужно что-б скрипт нашел всё в документе и просумировал всё по каждому IP и протоколу.
Потом перевёл в текстовый документ (уже сумму).
Wed Jan 17 15:15:27 2007; UDP; eth0; 90 bytes; source MAC address 0013d4bc960e; from xxx.com:netbios-ns to thander.xxx.com:netbios-ns
Wed Jan 17 15:15:27 2007; UDP; eth0; 328 bytes; source MAC address 0017317f4a66; from yulya.xxx.com:bootpc to xxx.com:bootps
Wed Jan 17 15:15:27 2007; UDP; eth0; 335 bytes; source MAC address 0013d4bc960e; from xxx.com:bootps to yulya.xxx.com:bootpc
Wed Jan 17 15:15:27 2007; UDP; eth0; 78 bytes; source MAC address 0020ed724aff; from yulya.xxx.com:netbios-ns to 10.100.0.255:netbios-ns

Хотел привести к виду

DATA
Host ____ IP _____ MAC_____
Proto (tcp/udp) source _________ destination _________ Bites _____
Неделю измаслал ничего не получается.
RSS-материал