#!/usr/bin/perl for my $host (`dig -t txt _cloud-netblocks.googleusercontent.com` =~ m@include:([^ ]+)@gim){ for my $zone (`dig -t TXT $host @ns1.google.com` =~ m@ip4:([^/]+/\d+)@gim){ print "$zone\n"; } }http://stackoverflow.com/questions…

wget -qO - https://forums.aws.amazon.com/ann.jspa?annID=1701 | grep -Eoh "[0-9.]+{4}/[0-9]+" http://maxbeatty.com/blog/2012/06/finding-amazon-s3-region-ip-ranges/