регулярные выражения в perl

Доки по regexp на русском: хорошая статья по регулярным выражениям в perl с примерами, вторая то-же про регэкспы покороче, как справочник. Все в формате pdf. Для тех, кто не в курсе - в perl всего штук пять функций для работы со строками, между тем это один из самых мощных языков по обработке текста. А все потому, что встроены регулярные выражения. Не просто доступны через библиотечные функции, а встроенны и доведены до совершенства. Пример красоты и мощи - узнал недавно про модификатор "e", который позволяет использовать в качестве подстановки исполняемый код. Вот как можно в тексте заменить каждое третье слово left на right:
$num = 0;
$text =~ s/(left).*?/if((++$num%3)== 0){'right'}else{$1}/igex;
Вот за это я люблю perl.