#!perl -p
s/.(?=(...)+$)/$&,/g