Select Code to Download

my   @part = ( 'http://example.net/app' );
push @part, 'admin'  if $is_admin_link;
...
push @part, $submode if defined $submode;

my $uri = join '/', @parts;

# [updated: originally had `'admin' ? $is_admin_link : ()`]

...
);

my $uri = join '/', @part;

$a = undef;
print $a ? 'true' : 'false';  # prints 'false'
...
$a = 'abc';
print !!$a ? 'true' : 'false';  # prints 'true'
print !!$a;                     # prints 1

@_ = ( 'a' ) x 4;
print join ':', @_;  # prints 'a:a:a:a'
print scalar @_;     # prints '4'

@_ = ( 'a' ) x 1;
print join ':', @_;  # prints 'a'
...
@_ = ( 'a' ) x 0;
print join ':', @_;  # prints ''
print scalar @_;     # prints '0'

my @part = (
    'http://example.net/app',
...
);

my $uri = join '/', @parts;