print join("\n",map(join(",",map{s/\.//;$_}@$_),@strings);
#vs
print join "\n",map{join",",map{s/\.//;$_}@$_}@strings;