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