my $target = '/var/www/html/index.html';
my($per_dir)  = $target =~ m|(.+)/[^/]+/?|;

print $per_dir,"\n";

”親directory”とゆうことなので。
それじゃイヤンってんなら、ググるなりして調べてくれ。