#!/usr/bin/perl

%res = ();
while (<>) {
	chomp ;
	@data = split /\s+/, $_, 12 ;
	if ($data[0] != 0) {
		$val = "-";
	} 
	else {
	    if ($data[10] == "packets,") {
		($other, $win) = split />/, $data[9] ;
		if ($data[12] > 0) {
		    $val = $win + 1;
		} else {
	   	    $val = $win;
		}
	    }
	else {
		$val = $data[10]; 
	}    
	}
	$id = join ':', $data[7], $data[8];
	($id, $ip) = split /:/, $id ;
	printf ("%40s %15s %10s\n", $id, $ip, $val);
}
