Select Code to Download

"SHAUNAGHH","","","Hawaiian Properties, Ltd.","4","911","Cost Recovery
+ Systms",40,6,32,0,1,1,"01/10/2009","13:33","ADM4968A3E0FA34",0x20000
+03,1,0,"EVERYONE",6754
"SHAUNAGHH","","","","","","Cost Recovery Systms",40,10,32,0,1,1,"01/1
+0/2009","13:33","ADM4968A3E0FA34",0x2000004,1,0,"EVERYONE",6754

#!c:\perl\bin\perl.exe -w
use strict;
...
        close REJECT;

# remove commas from quoted text strings;

...
# This produced output as follows:
# INBOUND $text is equal to: Aaron,"1234 Main St, USA",555-555-1212
# OUTBOUND $text is equal to: Aaron,"1234 Main St USA",555-555-1212