my @a = map {s/\n//g ? $_ : ()} `netstat -an`;
print "$_\n" for @a;