In $main::QtePostscript, $crlf is inserted at compile time. Your return is already assembled by the time the local line-end is seen.

One way to do this is to accumulate your return lines as an array @retary and:

Another approach would be to set $\ and:

A third is to s/\n/\r\n/g inside EmailQuote(), and forget about the local $crlf

After Compline,
Zaxo

Update, corrected an error regarding use of $retval.