Select Code to Download

package PNSearch;
use strict;
...
}

1;

my @Notes;        # array of PNSearch objects
foreach my $file (@Files) {
...
    # ie, if there is only one search term, this will be 0 or 1
    return $c;
}

30 April 2008 (Possession of <|>30 April 2008 (Possession of "extreme 
+pornography") <|>SNIP
29 April 2008 (Labor Department and whistleblower law)<|>29 April 2008
+ (Labor Department and whistleblower law) <|>SNIP
29 April 2008 (Dalit woman refused treatment and dies)<|>29 April 2008
+ (Dalit woman refused treatment and dies) <|>SNIP
29 April 2008 (Veterans and suicide)<|>29 April 2008 (Veterans and sui
+cide) <|>SNIP
28 April 2008 (Cluster bombs in Iraq)<|>28 April 2008 (Cluster bombs i
+n Iraq)<|>SNIP