$| = 1; for (100..999) { next if /(.)\1\1/; print "$_ : ", k($_), $/; }