Select Code to Download

    foreach my $num (split /::/ => $value) {

my @value_tokens = split /::/, $value;
foreach my $value_token (@value_tokens) {

       Here's how a C programmer might code up a particular algo-
       rithm in Perl:
...
       rather than merely terminating the inner one.  And it's        
+          
       faster because Perl executes a "foreach" statement more
       rapidly than it would the equivalent "for" loop.

    if $found:
        next;
    }