in reply to Re: Using regex to match double letters, and only double lettersin thread Using regex to match double letters, and only double letters
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' [download]