mapping device from an inq output to veritas disk groups

Hi, Does anyone have a clever way of mapping the following from two different files using perl.

sample line from vxdisk list output (vxdisk-list.file):

emcpower18s2 auto:sliced IDFAG1_1 (IDFAG1_appdg) online

sample line from 'inq' output (inq.file):

dev/rdsk/emcpower18c :EMC :SYMMETRIX :5670 :280076a000 : 8923200 :000287750328

I would like the resulting output to appear in
the following format

Diskgroup Device ID
======= =======
IDFAG_appdg, 280076a000

Many Thanks,
Collin