Perl
Uploaded avatar of m-dango

m-dango's solution
Reputation9,973
to Sieve in Perl