use strict;
use warnings;

sub prime{
    (1 x shift) !~ /^1?$|^(11+?)\1+$/;
}

for (1..1000){
    print "$_\n" if prime $_;
}