use strict; use warnings; use Perl::Version; use Module::CoreList; use CPAN::Perl::Releases; foreach my $ver ( keys %{ $CPAN::Perl::Releases::data } ) { next if $ver =~ /(RC|TRIAL)/; my $pv = Perl::Version->new( $ver ); my $num = $pv->numify; $num =~ s/_//g; if ( exists $Module::CoreList::released{ 0+$num } ) { print "$ver: ", $Module::CoreList::released{ 0+$num }, "\n"; } else { warn "SHIT NOTHING FOR '$ver', '$num'\n"; } }