perl -e "print qq(A)"