Select Code to Download

while ( <> ) {
    for my $word ( m{\b(\w+)\b}g ) {
        if (grep {$word eq $_} @prims) {
...
        }
    }
}