my @lines = qx/ss -4ntuH|awk '{ip=\$6; sub(\/:[0-9]+\$\/, "", ip); print ip}'/;