Select Code to Download

my @kwlist = qw(foo bar baz qux);
my $kwre = join('|',@kwlist);
...
        $count++;
    }
}

use JSON::XS;
my @kwlist = qw(foo bar baz qux);
...
        }
    }
}