Well, it is like finding prime numbers using:

my $p= 0;
while( 1 ) {
    print "$p\n" if (1x++$p) !~ /^(..+)\1+$/;
}
[download]

Any questions? (Just kidding. I'll give a real answer in a minute if someone hasn't already beat me to it.)

I believe Abigail deserves credit for that regex, BTW.

        - tye (but my friends call me "Tye")