perl -le 'print "PRIME" if (1 x shift) !~ /^(11+)\1+$/' $number