List to update Acme::CPANAuthors::Russian

authors.pl

#!/usr/bin/env perl
use 5.014;

use HTTP::Tiny;

my $url = 'http://backpan.perl.org/authors/id';
my %authors = (
    ADTIM     => 'Тимур Кондратьев',
    ALBOVA    => 'Alexey Bovanenko',
    ALXPLDEV  => 'Kononov Alexey',
    AMANOKHIN => 'Alexey E.Manokhin',
    AMONARCH  => 'Kirill Frolov',
    ANDREY    => 'Andrey Kovbovich',
    ANIO      => 'Ангел Колев',
    AVKHOZOV  => 'Andrey Khozov',
    AVOROBEY  => 'Anatoly Vorobey',
    AZINGER   => 'Alexey Zinger',
    BAT       => 'Тимур Бакеев',
    BLINCHIK  => 'Vladislav',
    BOCHAROV  => 'Бочаров Виктор',
    BURNASH   => 'Anton Burnashev',
    CONO      => 'Varyanick I. Alex',
    COOLMEN   => 'Александр Кузнецов',
    CRUSOE    => 'Andrei V. Toutoukine',
    CTAPUK    => 'Dmitriy Repin',
    DEMIURG   => 'Алексей Вениаминович Мышкин',
    DENIS     => 'Денис Терещенко',
    DEVIS     => 'Мусин Роман',
    DIMMA     => 'Vadim Suvorov',
    DIVER     => 'Максим Дуюнов',
    DMA       => 'Dmitri Alenitchev',
    DRUXA     => 'Андрей Мищенко',
    DSHAP     => 'Dmitry Shapovalov',
    DSOKOL    => 'Denis Sokolovsky',
    DVRYABOY  => 'Dmitriy Ryaboy',
    DZEMA     => 'Дмитрий Дзема',
    FATCAT    => 'Sergey Taranchenko',
    GAMBURGER => 'Мякинин Тимур Алексеевич',
    GERDLER   => 'Игорь Гердлер',
    GNATYNA   => 'Александр А. Гнатына',
    GREEN     => 'Evdokimov Denis',
    GURETS    => 'Gurets Maxim',
    HELLMAN   => 'Yuri A. Kabaenkov',
    HORD      => 'Denis S Chuprunov',
    HRG       => 'Yury Kopyl',
    IGSTAR    => 'Sergey Rybalko',
    IHRD      => 'Беликин Илья',
    IOK       => 'Igor Okunev',
    IPECHORIN => 'Иван А. Печорин',
    IVANOFF   => 'Dmitry Ivanov',
    IVANPAN   => 'Ivan  Panchenko',
    JAAN      => 'Иван Валентиныч Муравьёв',
    JUPITER   => 'Ivan Ponomarev',
    KAZIMIROV => 'Dmitry Kazimirov',
    KHEDIN    => 'Konstantin S. Uvarin',
    KIRILL    => 'Кирилл',
    KONSTANT  => 'Konstantin Antselovich',
    KOT       => 'Konstantin Gerasimov',
    KOTEROFF  => 'Dmitry Koteroff',
    KUDINOV   => 'Pavel Kudinov',
    LINCHUS   => 'Sein Sergey',
    LJUBEX    => 'Љубомир Самарџић',
    MAARD     => 'Maxim Yemelyanov',
    MADFROG   => 'Сергей Евстегнеев',
    MAILOMAN  => 'Alex',
    MARTYNOFF => 'Sergey Martynoff',
    MARTYNOV  => 'Сергей Мартынов',
    MAXX      => 'Suslov Maxim',
    MINAKOV   => 'Vladimir Minakov',
    MISAKA    => 'Mishka Gorodnitzky',
    MMK       => 'Мартин Маринов',
    MOONRANBW => 'Anton V. Goldberg',
    MOTONAROL => 'Averyanov Ilya',
    MYAKININ  => 'Timur Myakinin',
    NAB       => 'Nickolay Briginets',
    NIKOLAS   => 'Николай Шуляковский',
    NIXUS     => 'Никита Зубков',
    OBOGREW   => 'Nikolay Kuznetsov',
    OKOLOBOV  => 'Oleg Kolobov',
    OLPA      => 'Oleg A. Paraschenko',
    PROPANOID => 'Vladimir Skvortsov',
    RAKESH    => 'Rakesh Alex',
    RANGER    => 'Alexey Stroganov',
    RASSIE    => 'Николай Прокошенко',
    RAWFLUX   => 'Alexey Rybenko',
    RSHADOW   => 'Николаев Роман',
    RUFF      => 'Ruslan N. Marchenko',
    SAPA      => 'Андрей Сапожников',
    SAV       => 'Andrey Smorodin',
    SCOUNDREL => 'Alexey Kovyrin',
    SEZAY     => 'Sergei Zaytsev',
    SHEMYAK   => 'Konstantin Shemyak',
    SIMPLEX   => 'Andrey Rikov',
    SOKOL     => 'Pavel Sokol',
    SOVA      => 'Vladimir Sovetov',
    SPR       => 'Сергей Пригожий',
    STEALTHY  => 'Oleg Nikitin',
    STSAREV   => 'Sergei Tsarev',
    SUHANOV   => 'Суханов Вячеслав',
    TEAK      => 'Sergey Redin',
    TED       => 'Ruslan (Ted) Kharitonov',
    UJIN      => 'Зарецкий Евгений Петрович',
    VADZ      => 'Vadim Zeitlin',
    VERRENS   => 'Денис Афонин',
    VICTORP   => 'Victor Pryazhnikov',
    VLADISLAV => 'Sergey',
    VMARCHEN  => 'Vladimir Marchenko',
    VPOROSHIN => 'Vladimir Poroshin',
    VVD       => 'Andrey Yakovlev',
    WEINERK   => 'Konstantin Weiner',
    YSHTIL    => 'Yuri Shtil',
    ZHR       => 'Vladimir Zhirov'
);

my $ua = HTTP::Tiny->new;
for my $k ( sort keys %authors ) {
    $k =~ /^((\w)\w)/;
    my $res = $ua->get("$url/$2/$1/$k/");
    say $k if $res->{success};
}