#Abigail
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
%%
#Abigail
perl -wle 'print "Prime" if (0 x shift) !~ m 0^\0?$|^(\0\0+?)\1+$0'
%%
#Abigail
perl -wle 'print "Prime" if ("m" x shift) !~ m m^\m?$|^(\m\m+?)\1+$mm'