Select Code to Download

my $exclude = join ' --exclude=', '', @{$self->{patterns}};

my $exclude;
$exclude .= sprintf q{ --exclude='%s'}, $_ foreach @{$self->{patterns}
+};

my $exclude = join '', (map " --exclude='$_'", @{$self->{patterns}});