Select Code to Download

use strict;
use warnings;
...
my $results = search(["bobcat", "boomerang", "beer", "bat", "aaa" ], $
+neg, ["b"]);
print "@$results\n";
print "@$neg\n";