my ($s_ip,$s_port,$d_ip,$d_port) 
    = $line 
    =~ /IP (\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\.(\d+) > (\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\.(\d+)/;