Передача аргументов для perl или sed

echo 1234567|sed 's/^\([0-9]\)\([0-9][0-9][0-9]\)\([0-9][0-9][0-9]\)$/\1,\2,\3/'

echo 1234567|perl -pe 's/^(\d)(\d{3})(\d{3})$/\1,\2,\3/'