perl -e"print qq[Some text ending with a newline.\n]"