Select Code to Download

sub spin {
 # as "golfy" as I could imagine for now
...
 if ($_ =~ /\Q$pattern/) { $dir = $_; last OUTER; } 
 # ...
}