Select Code to Download

open (A, '+<', "somefile.html") or die $!;
s/a/b/g for my @records = <A>;
seek(A, 0, 0);
print A @records;