Select Code to Download

#!/usr/bin/perl 
use 5.011;
use warnings;
...
}

__END__

my %reposlist =
  map { lc $_->{'full_name'} =~ s|^${user}/||r => $_ } @$reposinfo;
print "Repos: " . join( ",", keys %reposlist ) . "\n";

           'created_at' => '2019-02-26T07:24:14Z',
            'keys_url' => 'https://api.github.com/repos/TBlazer66/SSCC
+E/keys{/key_id}',
            'subscribers_url' => 'https://api.github.com/repos/TBlazer
+66/SSCCE/subscribers',
            'branches_url' => 'https://api.github.com/repos/TBlazer66/
+SSCCE/branches{/branch}',
            'releases_url' => 'https://api.github.com/repos/TBlazer66/
+SSCCE/releases{/id}',