c:\@Work\Perl\monks>perl -wMstrict -le
"my @primes;
 ;;
 for (my $i = 2;  @primes < 10;  ++$i) {
   push @primes, $i if ('x' x $i) !~ m{ \A (..+) \1+ \z }xms;
   }
 ;;
 print qq{@primes};
"
2 3 5 7 11 13 17 19 23 29