Perl Style: Avoid Gratuitous Backslashes

Perl lets you choose your own delimiters on quotes and patterns to avoid Leaning Toothpick Syndrome. Use them.

    m#^/usr/spool/m(ail|queue)#

    qq(Moms said, "That's all, $kid.")

    tr[a-z]
      [A-Z];

    s { /          }{::}gx;
    s { \.p(m|od)$ }{}x;