Select Code to Download

tie my @results, 'Tie::File', $RESULTS_FILE;

for (@results) {
    last if s/search/replace/;
}