Select Code to Download

perl -e "map {print qq($_ ) unless $_ =~/(2|4|5|6|8|0)$/ } @ARGV" 2 3 
+5 7 11 13 17 19 23 29 37
3 7 11 13 17 19 23 29 37

perl -e "map {print qq($_ ) unless $_ =~/\d[245680]$/ } @ARGV" 2 3 5 7
+ 11 13 17 19 23 29 37
2 3 5 7 11 13 17 19 23 29 37

use strict;
...
primes_opt_till_11  => 'primes_opt_till_11  (10000)',
 });

1..1
ok 1 - same
...
primes_skipper     33.5/s                --              -35%         
+      -94%
primes_original    51.4/s               53%                --         
+      -90%
primes_opt_till_11  519/s             1448%              909%         
+        --