I'm lazy when it comes to speaking code. I assume that my listener already knows Perl and so I can say what I want my code to achieve rather than worry about specific symbols. This is particularly true when I'm reading code to myself.

So, to take a simple example:

while (<>) {
   s/foo/bah/g;
   print $_ || "Nothing\n";
}
[download]

I'd say:

While diamond, substitute foo for bar; globally. Print it or the string Nothing with newline.

If I really have to spell it out, so to speak, I'd say:

while diamond, start block.
ess for'd slash literal foo for'd slash literal bah for'd slash gee, semi-colon.
print dollar underscore bar bar double quotes literal capital N, nothing; newline. close double quotes, semi-colon.
close block.

But I don't often have to spell code out like that.

I'd pronounce qq~...~; as queue queue tilde <whatever> tidle semi-colon, or preferably double quotes (queue, queue tilde) whatever end quotes.

# is hash or comment
% is percent
! is shriek or bang 
^ is caret or hat
* is star
[download]

my punctuation pronounciation is rather boring.

jarich