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

##</code><code>##

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

##</code><code>##

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