@_?($_[0],f(grep$_%$_[0],@_)):()
[download]

It needs to be called as f(2..$limit) vs. f($limit).

If the requirement is that the signature is f($limit), then it goes to 47 characters

sub x{@_?($_[0],x(grep$_%$_[0],@_)):()}x 2..pop [download]