Hola tengo el siguiente archivo en formato

A partir de archivo
---------------------------------------
mi nombre algunas dfgfgfk jdksjdkls laladsl sdlsdls
.
.
.
DRT kfdjkfdk algunos pro sdjls VHDL.
-------------------------------------------------- --------------
ddr.spw.df.df 0 0 0 0 0
ddr.ser.ddf.tp 1 2 3 4 1
ddr.pwq.pro.fgt.tp 1 3 4 5 7
eth.pro.iw 1 2 3 4 5
eth.3po.lk 1 2 5 6 7
eth.3yu.lo 3 4 5 6 9

-------------------------------------------------- ------
final del archivo

Ahora quiero seprate todas las líneas que comienzan con ddr y suma su 5 ª columna, similiarly quiero seprate todas las líneas que comienzan con ETH y suma su 5 ª columna. La parte superior de archivo como se muestra puede consistir en algún apartado que no es necesario considerar. Así que por favor alguien puede ayudar con perl secuencia de comandos para realizar esta operación.

Gracias