idiomatic perl - punctuation