gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8::all;
use REST::Google::Search;

REST::Google::Search->http_referer('http://sartak.org');
$| = 1;

for my $year (23 .. 50) {
    print  "平成${year}年 (".($year+1988)."): ";
    my $res = REST::Google::Search->new(q => qq["平成${year}年"]);
    print $res->responseData->cursor->estimatedResultCount;
    print "\n";
}

__END__
平成23年 (2011): 4570000
平成24年 (2012): 373000
平成25年 (2013): 81800
平成26年 (2014): 44100
平成27年 (2015): 55800
平成28年 (2016): 36900
平成29年 (2017): 13200
平成30年 (2018): 10900
平成31年 (2019): 6780
平成32年 (2020): 11800
平成33年 (2021): 5890
平成34年 (2022): 1770
平成35年 (2023): 1580
平成36年 (2024): 1330
平成37年 (2025): 4040
平成38年 (2026): 1330
平成39年 (2027): 1410
平成40年 (2028): 1680
平成41年 (2029): 1020
平成42年 (2030): 3340
平成43年 (2031): 871
平成44年 (2032): 936
平成45年 (2033): 787
平成46年 (2034): 667
平成47年 (2035): 1670
平成48年 (2036): 786
平成49年 (2037): 699
平成50年 (2038): 937