# @data enthält alle im Regex gefangenen Muster, das sind Hostname, IP, Status
my @data = ( $output =~ /report for (.+?) \((\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\)\nHost is (\w+)/gm );

# solange noch Daten im Array sind
while (scalar @data) {
        # hole den Hostname aus dem Array und zerlege in die verschiedenen Teile
	my @parts = split /\./,shift @data;
        # Domain ist hier XXXXX.TLD, aus letzten beiden Teilen erzeugen
	my $domain = "$parts[-2].$parts[-1]";
	# die letzten beiden abgetrennten Infos wegwerfen
	pop @parts; pop @parts;
        
	# Hostname aus dem Rest erzeugen
	my $host = join '.',@parts;	
	say "Host: ", $host;

	say "Domain: ", $domain;

	# IP aus Datenarray holen
	say "IP: ", shift @data;

	# Status aus Datenarray holen
	say "Status: ",shift @data;

	say '-' x 10;
}