#!/usr/bin/perl -w
use strict;
use warnings;

use Regexp::Common qw /URI/;

my $link = '<a href="https://aaa.bbb.ccc.ddd.com/path/filename.msi">name.msi</a>';
my $cap = 'leer';

if ($RE{URI}{HTTP}{-scheme => qr/https/}{-keep}{-i}->matches($link)) {
        $cap = $1;
        print "HTTPS URI gefunden" . "\n\t" . "$cap" . "\n\n";
}

print "Done!";

#Can't Regexp::Common::FIRSTKEY at C:/Program Files (x86)/ActiveState Komodo IDE 7/lib/support/dbgp/perllib/perl5db.pl line 197.