echo "print qq(Hello.\n)" | perl