cat ~/.local/bin/commafy

#!/usr/bin/perl -nl
$_ =~ s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;
print;