G'day ramki067,

Given your $RESULTS_FILE is a web page, and therefore not of inordinate length, Tie::File might be a good option here.

In place of "open OUT, ...", use

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

and, in place of "while $srch(<OUT>) {...}", use

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

Additionally, there's a few issues with your code:

• You're opening a file in append mode but you only read it in the code shown. See open for details.
• You're not checking whether your I/O is successful. open also has information on this; alternatively, you may find it easier to just use the autodie pragma.
• You'd also do well to check the syntax of while.