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

##</code><code>##

( LIST ) x!! COND
( grep COND, LIST )
COND ? ( LIST ) : ()

##</code><code>##

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

##</code><code>##

    ( split /:/, $path || '' ),