in reply to Line noise!

map{print+($",A..Z,a..z,$/)[$_]}@_;

is equal to

print+($",A..Z,a..z,$/)[@_];