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