もういいじゃない。教えてやろうぜ
>>932
これで大丈夫だぞ。


$,=" ";
print grep{ (1 x $_) =~ /^(11+)\1+$/ or $_ = "Prime"} (100..300);