Separate functions PerlPP::[D]QuoteString()