Select Code to Download

sub search {

    my ($file, $searchString) = @_;
...

    return 0;
}

if(search($file, $searchString)) { 

    print "\tFound: $file\n";
...
        }
    }
}