#!/usr/bin/perl

$test = 32611;
$prime = 32609;
$numprimes = 3500;

print "Prime $numprimes is $prime\n";

until ($numprimes == 10001) {
        if ( (1 x $test) !~ (/^1?$|^(11+?)\1+$/) ) {
                $prime = $test;
                $numprimes++;
                print "Prime $numprimes is $prime\n";
        }
        $test++; $test++;
}