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

##</code><code>##

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

##</code><code>##

my $vcid;
my $tag;
my @splittag;
my $pop;
my $xcon;
my $cos;
my @splitcos;

# change those to:

my $vcid = '';
my $tag = '';
my @splittag;
my $pop = '';
my $xcon = '';
my $cos = '';
my @splitcos;

##</code><code>##

	$unit = $splitunit[2];

# change to:

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

##</code><code>##

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

# change to:

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

##</code><code>##

        $cos = $splitcos[2];

# change to:

        $cos = $splitcos[2];

##</code><code>##

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

# change to:

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

##</code><code>##

	$pop = $splittag[4];

# change to:

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

##</code><code>##

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

# change to:

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