my $url = "http://need4soft.ru/engine/classes/tagcloud/tagcloud.swf";
if ($url =~ m|(http://[^/]+).*/([^/]+)|) {
    print "$1\n";
    print "$2\n";
}

>Спасибо.
>Что я делаю не так?

Регулярные выражения, которые работают в sed могут не работать в Perl и наоборот. Либо я не увидел, что раздел про Перл, либо вы этого не указали.

coder@ubuntu ~ $ perl -e '$link = "http://need4soft.ru/engine/classes/tagcloud/tagcloud.swf"; $link =~ s|^(http://[^/]+)/.*|\1|; print "$link\n";'
http://need4soft.ru

В BSD не работает.

>>coder@ubuntu ~ $ echo 'http://www.teztour.com/book/site/images/button_s.gif' | sed 's|^\(http://[^/]\+\)/.*|\1|'
>>http://www.teztour.com
>
>ээ...
>
>fx@freebsd71$ echo 'http://www.teztour.com/book/site/images/button_s.gif' | sed 's|^\(http://[^/]\+\)/.*|\1|'
>http://www.teztour.com/book/site/images/button_s.gif
>
>ЧЯДНТ?

Если не ошибаюсь, во FreeBSD нужен ключик -E

P.S. Опять же вылазит несовместимость между sed/awk и прочими утилитками в GNU и BSD. Поэтому либо писать на Перле, либо сразу говорить под какую ОС нужен скрипт.