>>662
perl -MSocket -p -e 's/(\d+\.\d+\.\d+\.\d+)/gethostbyaddr(inet_aton($1),AF_INET)/e;'