Help for this page

Select Code to Download

Select or download this

while (<FILE>) {
    if (/(.*$find.*)/) {
...
    print NEW "$header\t", $_;
    }
}