Анекдот №-9940955

>>Жителей долины Неандерталь тоже можно было научить строиться в шеренгу и
>>даже программировать, но от этого они не перестали бы быть
>>неандертальцами, раздраженно-тупиковой ветвью эволюции.

>Ну что ж, тогда проверим Ваш уровень эволюции. Вы ведь умнее
>Неандертальца? И уж конечно, Вы - перспективная ветвь! Тогда даю
>вводную: Язык Perl:
>
>$s=`C:\Program files\Winamp`;
>$s=~s/(\\)/\\\\/g; print $s;
>
>Что получится?
>
>P.S. : Для решения этого примера Perl знать необязательно, надо лишь
>порыться в интернете. Так что либо Вы пишете правильный ответ, либо
>дискуссия завершается (предпочтительнее), а то уже от стрелочек в
глазах
>рябит.

Будет напечатано:

C:\Program files\Winamp

The =~ operator in your regular expression doesn’t change the variable
$s using the line s/(\\)/\\\\/g because \\ doesn’t match and that is why
the optional global character g doesn’t modify that expression too.

Учтите, неандертальцы кончили так плохо только потому, что считали себя
умнее всех остальных ветвей.