Planlos' Perl-Lieblings-Einzeiler

ich versuch das mal aufzuschlüsseln:

1

$_ = 1;

2

3

do{

4

  $str = 1x$_;  # Hänge '1' $_ mal einandander

5

6

  $regexMatched = $str =~ /^(11+)\1+$/;

7

8

  if(! $regexMatched){

9

    print $_ .$/;

10

  }

11

12

}while(++$_);

Was bleibt ist der unklare regex

Planlos schrieb:
> Dann wird per Regex geprüft, ob es einen mindestens zweibuchstabigen
> Teilstring gibt '(11+)', der sich mehrfach wiederholen lässt, um den
> ganzen String zu matchen (\1+).

ahh, ok - verstehe.
Die Anker zwingen, dass der ganze string restlos auf vielfache von 
irgendeinem vielfachen von '1' werden muss.

Und wenn das möglich ist, kann es keine Primzahl an 1en sein,

Danke :)