Select Code to Download

    if ($neighbor eq undef){}
    elsif ($vcid eq undef) {}
    else {

    if ( !defined $neighbor && !defined $vcid ) {

my $vcid;
my $tag;
...
my $xcon = '';
my $cos = '';
my @splitcos;

    $unit = $splitunit[2];

# change to:

    $unit = $splitunit[2] || '';

    $vlanida = $splitvlan[2];
    $vlanidb = $splitvlan[4];
...

    $vlanida = $splitvlan[2] || '';
    $vlanidb = $splitvlan[4] || '';

        $cos = $splitcos[2];

# change to:

        $cos = $splitcos[2];

    $neighbor = $splitxc[1];
    $vcid = $splitxc[2];
...

    $neighbor = $splitxc[1] || '';
    $vcid = $splitxc[2] || '';

    $pop = $splittag[4];

# change to:

    $pop = $splittag[4] || '';

    if ($neighbor eq undef){}
    elsif ($vcid eq undef) {}
...
# change to:

    if ( length $neighbor && length $vcid ) {