s/./$$_[$$_{$&}++].=$&/ger,$"='/',print"@$_
"for<>