Hi,

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+)/;
[download]

update: OK, ++others much faster ;-)
Regards,
svenXY