use strict;
use warnings;
use URI;

URI:
for my $raw ( <DATA> )
{
    my $uri = URI->new($raw);

    if ( $uri->scheme ne "https" )
    {
        warn "$uri is not secure, skipping\n";
        next URI;
    }
    if ( $uri->path =~ m,/\z, )
    {
        warn "$uri has a trailing slash, skipping\n";
        next URI;
    }
    print "GOOD: $uri\n";
}

__DATA__
http://perlmonks.org/?node_id=825405
https://gmail.com
https://gmail.com/
https://perlmonks.org/?
https://mail.google.com/mail/#inbox