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

##</code><code>##

my $name = join '-', (
	@prefix,
	( map @$_, grep { $do_use_path } [ split /:/, $path ] ),
	$name,
	$suffix,
);

##</code><code>##

my $name = join '-', (
	@prefix,
	( split /:/, $path ) x!! $do_use_path,
	$name,
	$suffix,
);

##</code><code>##

my $name = join '-', (
	@prefix,
	( split /:/, $path ) if $do_use_path,
	$name,
	$suffix,
);