use File::Basename;

my $dirstr = "/directory/directory/some-file.html";
$dirstr = dirname($dirstr);
[download]

Note that the trailing slash will be cut off.

buckaduck