Select Code to Download

use strict;
use warnings;

...
open (FH, ">$f2") || die;
print FH $text;
close FH;

find
search

a bunch
of words
with
find and
search and
some other words

a bunch
of words
with
****** and
****** and
some other words