$ perl -le'$x = 123456789; print qx/printf "%\047d" $x/'
123,456,789