Select Code to Download

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

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

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

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