if ($path =~ m|^(.*)/[^/]*$|)
{
  $dir = $1;
}