Я тут на операцию сходил, в качестве основного участника. Как оказалось в чём-то даже забавный опыт, хотя перед ней переживал зверски, но, слава премедикации, из самой операции я помню только один момент — что я нёс какую-то чушь и спрашивал доктора «ничего, что я с вами разговариваю?». Потом провал и вот меня уже будит жена, чтобы забрать домой.

Но речь не об этом. Перед операцией я делал МРТ, причём на определённом аппарате, куда почему-то в последнее время доктора буквально сгоняют пациентов — меня, жену и маму по разным поводам направляли делать сканирование именно на этот аппарат. Я поинтересовался у очередного врача в чём тут дело и он мне показал разницу, взяв в руки два моих снимка.

Разница, оказывается, в детализации. На снимке слева — обычный аппарат, справа — тот, который так полюбили врачи нашего города, обратите внимание на то как хорошо справа видны сосуды.

Пока отхожу от операции, смотрю сериал «Кремниевая долина» и дабы не заржавел мозг, сделал расшифровку надписи на футболке Эрлиха — одного из героев сериала, на трёх языках: Перле, Пайтоне и Тикле. Листинг один для трёх языков:

#\
"@{[$\=qq{\n},\
print map {chr $_} (0b1000010, 0b1101001, 0b1110100, 0b1100011, 0b1101111, 0b1101001, 0b1101110)]}";#\
__END__ = 1;\
print(''.join(chr(b) for b in (0b1000010, 0b1101001, 0b1110100, 0b1100011, 0b1101111, 0b1101001, 0b1101110))); #\
"""
foreach name {01000010 01101001 01110100 01100011 01101111 01101001 01101110} {
    puts -nonewline [binary format B* $name]
}
puts {} ;#"""

Дольше всего с Перлом возился, пока не вспомнил, что у него есть вычисление выражений внутри строк через конструкцию @{[…]}. Нужно рассказать как всё работает?