use File::Basename;

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