version 1.0.0, 2013-10-25 : Initial version
Prime number detection
A one-liner that returns "Prime" if the number given in output is a prime number. If not, it returns nothing.perl -wle 'print"Prime"if(1x shift)!~/^1?$|^(11+?)\1+$/'
perl -wle 'print"Prime"if(1x shift)!~/^1?$|^(11+?)\1+$/'