sub is_prime {
   ("1" x $_[0]) !~ /^(11+)\1+$/
}