foreach $match ( @Output ) {
		if ( $match =~ m/^Routing entry for / ) {
			@Data = split( ' ', $match );
			$octet = $Data[ 3 ] ;
			last ;
		}
	}
	my @routing = split( /\./, $octet );