Cool perl one-liner to test an n's primeness
[jpmurray~]$ perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' 8179
Prime