Just for the sake of completeness - my 58-char sieve of Eratosthenes. The one-liner prints all integers less than given argument.
@_=(2..shift);while(@_){print$_[0].$/;@_=grep{$_%$_[0]}@_}
s;;Just-me-not-h-Ni-m-P-Ni-lm-I-ar-O-Ni;;tr?IerONim-?HAcker ?d;print