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