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

my $displayed_link = 'http://www.url.com/cgi.pl?x=y';

( $displayed_link ) = $displayed_link =~ m/^(http:\/\/.*?\/)/;

print $displayed_link . "\n";