Perl tricks by NEIL KANDALGAONKAR Author: Neil Kandalgaonkar Formatting: Laurent CAPRANI Look here for a nicer version of this page that Neil made. Contents Primality regex How it works Example This vs. mine Primality regex I found the actual one-liner Abigail originally used from http://www.mit.edu:8008/bloom-picayune.mit.edu/perl/10138: perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+