Select Code to Download

SELECT
...
SUBSTR ( REPLACE ( REPLACE ( memo_system_txt, CHR(10), '' ), CHR(13), 
+'' ), 1, 255 ) AS memo_sys_txt,
...

#!/usr/bin/perl  

...

close X;
close F;