http://www.perlmonks.org?node_id=81734


in reply to (Golf): Sieve of Eratosthenes

How about this at 45 (strict compliant too): 
sub sieve {
  sub p{$_[0],@_?p(grep$_%$_[0],@_):()}p 2..pop
}

[download]
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Meditations