use strict;
use warnings;

for (qw(http://www.url.com http://www.url.com/ http://www.url.com/cgi.pl?x=y)) {
    my $displayed_link = $_;

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

##</code><code>##

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