in reply to This One's a Sieve

Oh, is it golf?

print$"while($\)=@==@=?grep$_%$\,@=:2..250

Somewhat slower than the original, but 42 characters =p

In Section Obfuscated Code