$test = 7920;
$prime = 7919;
$numprimes = 1000;

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++;
}