$ perl -e 'print qq{\$,="$," \$"="$""\n}'
$,="" $"=" "