#! perl -slw
use strict;

my( $nName, $iName, $vrid, $state, $paddr, $nAddr, $oAddrs, @oAddrs );

die "File does not contain a Network name header"
    unless ( $nName ) = <DATA> =~ m[Network\sname \s+ (\S+)]x;

local $/ = "\nI";
while( <DATA> ) {
    if(
        ( $iName, $vrid, $state, $paddr, $nAddr, $oAddrs ) = m[
            (?=.*? nterface           \s+ (\S+) )
            (?=.*? VRID               \s+ (\S+) )
            (?=.*? State:             \s+ (\S+) )
            (?=.*? Primary\saddress:  \s+ (\S+) )
            (?=.*?
                Number\saddresses:    \s+ (\S+)
                ( .+? )
                (?=Monitored\scircuits:)
            )
        ]smx
    ) {
        @oAddrs = split ' ', $oAddrs;
        print join ', ', $nName, $iName, $vrid, $state, $paddr, $nAddr, @oAddrs;
    }
    else {
        warn "File did not match required format";
    }
}