Я пошел бы для разнообразия заключения в кавычки операторов (от perlop):
Customary Generic Meaning Interpolates
'' q{} Literal no
"" qq{} Literal yes
`` qx{} Command yes*
qw{} Word list no
// m{} Pattern match yes*
qr{} Pattern yes*
s{}{} Substitution yes*
tr{}{} Transliteration no (but see below)
<<EOF here-doc yes*
* unless the delimiter is ''.
список может быть подавляющим (особенно, когда Вы добавляете в альтернативных разделителях), но чрезвычайно полезный. Это также помогает при чтении кода начиная с немногих (если таковые имеются!) языки имеют множество кавычек, которые имеет Perl.
Я искал способ установить случайный пользовательский агент для Mechanize, поэтому в итоге я сделал это:
a = Mechanize.new do |agent|
agent.user_agent_alias = (Mechanize::AGENT_ALIASES.keys - ['Mechanize']).sample
end