-     my $parent_directory = $new_vhost_path =~ s,^(.*)/(.*),$1,;

+     my $parent_directory = $new_vhost_path;
+     $parent_directory =~ s,^(.*)/.*$,$1,;
      warn "We hope we can write to: $parent_directory ";