Select Code to Download

foreach $link ( @extracted_links ) {
    $links{$link}++;

    $constrainted_linkes{$link}++
        if ( 0 < grep { $link =~ m/$_/ } @constraints;
}