% perl -E $'say q{"\'}'
"'

% echo $SHELL 
/bin/zsh