Bonjour j'ai un petit probleme de regexp comme d'hab , je veut découpé des chaines intélligement

par exemple

$i = "http://www.free.fr/";

supprimé le denier / , j'ai testé avec $i =~ s/\///;

si $i = "http://www.free.fr/blalblalll/mason.htm";

ben supprimé tout ce qui vas après le quatième / afin d'obtenir

http://www.free.fr/blalblalll

etc...
j'ai tenté plein de regexp différent , rien a faire je trouve pas de solution a mon problème