A One-line Primality Test

A primality test in one line of Perl:

perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' [number]

Originally written by Abigail. Explained in detail by Neil Kandalgaonkar. Kudos to Pete Warden for the link.