Select Code to Download

use strict;
use warnings;
...
    $displayed_link =~ s!^.*?(\w*://[^/]+/?).*!$1!;
    print $displayed_link, "\n";
}

http://www.url.com
http://www.url.com/
http://www.url.com/