perl -e 'print scalar reverse "dog" . "\n";'