#!/usr/bin/perl
use warnings;
use strict;


while (<>)
	
	{
		
		chomp;
		
		next if /Id Name       Persona        -WWN\/iSCSI_Name- Port/;
		
		
		if(/(?<loggedout>[d]+.*?\p{Hex}{16}.*?(--- |\s+))/sm)
		{
		    print "$+{loggedout}\n";
		}
		
		
	}