find filename / meta.yml version mismatches

version_mismatch.pl

use strict;
use warnings;
use MetaCPAN::Client;

my $mcpan = MetaCPAN::Client->new( version => 'v1' );
my $releases = $mcpan->all('releases', {
    es_filter => {
        terms => { status => [qw< latest >] }
    },
    fields => [qw< author version download_url distribution >],
});

while ( my $r = $releases->next ) {
    next unless $r->download_url; # another issue                                                                                                                       

    my $ver = $r->version =~ s/^v//r;
    my $url = $r->download_url;

    unless ( $url =~ /$ver(?:-TRIAL)?\.(?:tar|tgz|zip)/ ) {
        printf "%s:%s:%s:%s\n", $r->author, $r->distribution, $ver, $url;
    }
}