perl -e "print qq(Hello.\n)"