perl -e"$#=qq,This is really cool %.ng,;print warn q,JAPwH,"
perl -e'$#=qq,This is really cool %.ng,;print warn q,JAPwH,'