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

##</code><code>##

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