perl -e 'print join( ",", reverse ( split "", "dog")) . "\n";'