>842
$_ = reverse join ',', grep !/^$/, split /(\d\d\d)/, reverse $_;