($name, my @morenames) = split m{/}, $name;
$name =~ s{\( ([^/]+) \)}{<small>$1</small>}x;
$name .= " <small>($_)</small>" for @morenames;
($name, my @morenames) = split m{/}, $name;
$name =~ s{\( ([^/]+) \)}{<small>$1</small>}x;
$name .= " <small>($_)</small>" for @morenames;