Select Code to Download

#!/usr/bin/perl -w

use strict;
...
    ."digest occurrences: ".$digests{$phrases{$phrase}}."\n\n"; 
    $count++;
}

[leo@mescaline ~]$ perl recurring.pl
0) phrase [[[This is my first sentence, Ok]]]
digest [[[thisismyfirstsentenceok]]]
...
22) phrase [[[  And while the "speed" will depend (in part) on your al
+gorithm, the time the process  will take to run to completion will li
+kely be most influenced by the size of the text to search and the spe
+cificity (or simplicity) of the search phrase (hint: read  "regular e
+xpression"), for any given language and box upon which to run it]]]
digest [[[andwhilethespeedwilldependinpartonyouralgorithmthetimethepro
+cesswilltaketoruntocompletionwilllikelybemostinfluencedbythesizeofthe
+texttosearchandthespecificityorsimplicityofthesearchphrasehintreadreg
+ularexpressionforanygivenlanguageandboxuponwhichtorunit]]]
digest occurrences: 1