This is the revision history for ipv4 in <freenode.net:#perlbot>

factoid_idsubjectcopulapredicateauthornamespace
11159 ipv4 is `eval `fact _ipv4_startup~;$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"IPv4 Addresses: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/))." http://bit.ly/1kwnn1a"~
IPv4 Addresses: ARIN: 0 (0.0%) APNIC: 2,906,630 (0.3%) AFRINIC: 1,043,518 (0.9%) RIPE: 0 (0.0%) LACNIC: 256 (0.0%) http://bit.ly/1kwnn1a		 simcop2387 <*:##NULL>
11158 ipv4 is `eval `fact _ipv4_startup~;$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"IPv4 Addresses: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/)." http://bit.ly/1kwnn1a")~
Not Available		 simcop2387 <*:##NULL>
11156 ipv4 is `eval use JSON;@lt=gmtime(time-7*3600);$m=($lt[2]*60+$lt[1])*60+$lt[0];$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"IPv4 Addresses: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/)."
Not Available		 simcop2387 <*:##NULL>
11155 ipv4 is `eval use JSON::XS;@lt=gmtime(time-7*3600);$m=($lt[2]*60+$lt[1])*60+$lt[0];$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"IPv4 Addresses: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/)."
Not Available		 simcop2387 <*:##NULL>
11154 ipv4 is `eval use JSON::XS;@lt=gmtime(time-7*3600);$m=($lt[2]*60+$lt[1])*60+$lt[0];$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/))."
Not Available		 simcop2387 <*:##NULL>
11153 ipv4 is `eval use JSON::XS;@lt=gmtime(time-7*3600);$m=($lt[2]*60+$lt[1])*60+$lt[0];$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/))~
Not Available		 simcop2387 <*:##NULL>
11055 ipv4 is `eval use JSON::XS;@lt=gmtime(time-7*3600);$m=($lt[2]*60+$lt[1])*60+$lt[0];$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/))~
Not Available		 simcop2387 <*:##NULL>
11054 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0];$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/))~
Not Available		 simcop2387 <*:##NULL>
11002 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0];$d=q{`fact _ipv4_json~};$h=decode_json $d;sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"}qw/arin apnic afrinic ripe lacnic/))~
Not Available		 simcop2387 <*:##NULL>
11001 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0];$d=q{`fact _ipv4_json~};$h=decode_json($d);sub sx{local$_;($t4,$d)=@_;$_=2*int($t4*128-($m*$d/675));1 while s/^(\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"},$h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"} qw/arin apnic afrinic ripe lacnic/))~
Not Available		 simcop2387 <*:##NULL>
11000 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0]; $d=q{`fact _ipv4_json~};$h=decode_json($d);sub sx{local$_;($t4,$d)=@_;$_=int($t4*256-($m*$d*2/675));1 while s/^([-+]?\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"}, $h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"} qw/arin apnic afrinic ripe lacnic/))~
Not Available		 simcop2387 <*:##NULL>
10999 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0]; $d=q{`fact _ipv4_json~};$h=decode_json($d);sub sx{local$_;($t4,$d)=@_;$_=int($t4*256-($m*$d*256/86400));1 while s/^([-+]?\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"}, $h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"} qw/arin apnic afrinic ripe lacnic/))~
Not Available		 simcop2387 <*:##NULL>
10998 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0]; $d=q{`fact _ipv4_json~};$h=decode_json($d);sub sx{local$_;($t4,$d)=@_;$_=int($t4*256-($m*$d*256/86400));1 while s/^([-+]?\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".sx($h->{$_."24s"}, $h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"} qw/arin apnic afrinic ripe lacnic/));~
Not Available		 simcop2387 <*:##NULL>
10997 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0]; $d=q{`fact _ipv4_json~};$h=decode_json($d);$s=sub{local$_;($t4,$d)=@_;$_=int($t4*256-($m*$d*256/86400));1 while s/^([-+]?\d+)(\d{3})/$1,$2/;$_};"Estimated IPv4 Addresses left: ".join(" ",(map{(uc $_.": ".$s->($h->{$_."24s"}, $h->{$_."24delta"}))." (".$h->{$_."Percent"}."%)"} qw/arin apnic afrinic ripe lacnic/));~
Not Available		 simcop2387 <*:##NULL>
10989 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0]; $d=q{`get http://ipv6.he.net/exhaustionFeed.php?platform=json /*~}; $h=decode_json($d); $s=sub{($t4,$d)=@_; sprintf "%d", $t4*256 - ($m * $d * 256/86400)}; "Estimated IPv4 Addresses left: " . join(" , ", (map {(uc $_ . " => " .$s->($h->{$_."24s"}, $h->{$_."24delta"}))} qw/arin apnic afrinic ripe lacnic/));~
Not Available		 simcop2387 <*:##NULL>
10988 ipv4 is `eval use JSON::XS;@lt=gmtime;$m=($lt[2]*60+$lt[1])*60+$lt[0]; $d=q{`get http://ipv6.he.net/exhaustionFeed.php?platform=json /*~}; $h=decode_json($d); $s=sub{($t4,$d)=@_; sprintf "%d", $t4*256 - ($m * $d * 256/86400)}; $o=join " , ", (map {(uc $_ . " => " .$s->($h->{$_."24s"}, $h->{$_."24delta"}))} qw/arin apnic afrinic ripe lacnic/);~
Not Available		 simcop2387 <*:##NULL>