idiomatic perl - quoting