@foo = split /\s+/;
($laddr,$lport) = (split(/:/,$foo[1]),split(/:/,$foo[2]));