S:\>perl -e"print '\"'"