#!perl -p040l
s##$.%2?!--$n:"
".$"x~$n#ge