Perl

perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'

Программа для вывода простых чисел. Вот это я понимаю, “магия слова”.