Untitled

#! /bin/bash
url='http://sockslist.net/list/proxy-socks-4-list/'

curl -s $url > /tmp/x_raw

change=`cat /tmp/x_raw | grep -i parseint | perl -nle 'm/\(a\[i\]\)(.[0-9]{1,2})/; print $1'`

cat /tmp/x_raw | grep -i '"t_port"' | awk -F "(>|</td)" '{print $2}' | tr "," " " |
while read line; do
    for char in $line; do
        echo "${char}${change}" | bc | awk '{printf("%c"),$1}';
    done;
    echo;
done > /tmp/x_ports

cat /tmp/x_raw | grep -i '"t_ip"' | awk -F "(>|</td)" '{print $2}' > /tmp/x_ip

pr -s: -m -t -J "/tmp/x_ip" "/tmp/x_ports"