Вопрос бо работе со строками

[AST]

Здравствуйте. Я чайник в перле, так что извините за простой вопрос
Есть некая переменная $url, её значение приблизительно такое: http://192.166.33.44/pam/tram/file.ext, а мне надо оставить в ней http://192.166.33.44/pam/tram/, т.е. убрать все что после последнего слеша.
Помогите пожалуйста

[YA]

убрать все что после последнего слеша

$url=~s/[^\\/]+$//;

Но перед этой строкой стоит добавить такую проверку:
$url.="/" if $url=~/^http:\\/\\/[^\\/]+$/; # для адресов типа "http://192.166.33.44"

[AST]

Спасибо большое