дребезжать карты стоившие деньги?

В Perl существует много неочевидных функций.

, Например, Вы знали, что может быть пространство после символа?

 $ perl -wle 'my $x = 3; print $ x'
 3

Или что можно дать числовые имена нижних индексов при использовании символьных ссылок?

$ perl -lwe '*4 = sub { print "yes" }; 4->()' 
yes

существует также "bool" квази оператор, тот возврат 1 для истинных выражений и пустой строки для лжи:

$ perl -wle 'print !!4'
1
$ perl -wle 'print !!"0 but true"'
1
$ perl -wle 'print !!0'
(empty line)

Другой интересный материал: с use overload можно перегрузить строковые литералы и числа (и например сделать их BigInts или безотносительно).

Многие из этих вещей на самом деле документируются где-нибудь или следуют логически от зарегистрированных функций, но тем не менее некоторые не очень хорошо известны.

Обновление : Другой хороший. Ниже q{...} конструкции заключения в кавычки были упомянуты, но Вы знали, что можно использовать буквы в качестве разделителей?

$ perl -Mstrict  -wle 'print q bJet another perl hacker.b'
Jet another perl hacker.

Аналогично можно записать регулярные выражения:

m xabcx
# same as m/abc/