$region{$name}{L} = $.;
if ($dname =~ m{/}) {
$dname =~ s{(?<!-)/(?! )}{-/}g;
- $region{$name}{DisplayName} = [ grep m/./, split m{/}, $dname ];
+ $region{$name}{DisplayName} = [ grep m/./, split m{ */ *}, $dname ];
} else {
$region{$name}{DisplayName} = [ split m{(?<=-)| }, $dname ];
}