Select Code to Download

my @files = ...;

...
{
    download($file) unless $file =~ /^asdf/;
}

for my $file (@files)
{
    download($file) if $file !~ /^asdf/;
}