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