Select Code to Download

open(FH, "error_log");
@data = <FH>
for (my $index = 0; $index < $data; $index++) {
...
                $nextline =~ s/|notice|\[|\]|,mpmstats:,|\t|rdy,|bsy,|
+rd,|wr,|ka,|log,|dns,|cls,|bsy:,|in,//g;                    
                print $nextline;
            }