Help for this page
my @files = ...; ... { download($file) unless $file =~ /^asdf/; }
for my $file (@files) { download($file) if $file !~ /^asdf/; }