my $name = join '-', @prefix, ( grep { defined $path and length $path } split /:/, $path ), $suffix;