Select Code to Download

my %lexicon = map{ <word> => <supplementary data> } $csv -> parse    #
+ words to match against, and supplementary data to go with matches
foreach <tweet> {
...
        }
    }
}

#! perl -slw
use strict;
...
C:\docs\OriginOfSpecies(Darwin)\2009-h>\perl5.18\bin\perl.exe \test\10
+43602.pl 2009-h.htm
Finding 203474 words (of 216808) took 0.173504 seconds using a hash
Finding 203474 words took 2072.099258 seconds using a trie(via regex e
+ngine)