$\="\n"; $,=",";
print r("0000", "0000", "0000");
#outputs
#000,000,000,000