numere prime

Aflarea numarului prin cu expresie regulara :)$num = 7;$one_num = '1' x $num;print "number: $num = $one_num; ";if($one_num !~ /^1?$|^(11+?)\1+$/){ print "is prime";}else{ print "is not prime $1";}