Select Code to Download

$searchfile =~ /^\.svn$/;
print "$searchfile\n";
...
} else {
    last;
}