G'day JobC,

Welcome to the Monastery.

I believe you can perform all the modifications with this transliteration:

y/, \n/ /s
[download]

Here's my test:

#!/usr/bin/env perl -l

use strict;
use warnings;

my @data = (
    q{"TRAY,HINGED,PLSTC,20 CAV 
    #F32473"},
    q{"BOX HSC,35-3/4X17-1/4 X 50-1/2
    SIMULATOR TALL BOX"},
    q{"PAD, FOAM, 24 X 24 X 1/4                #16193                 
+                  
    112 SHEETS PER ROLL, ORDER IN FULL ROLLS"},
    q{"PKG LIST,ASST ARM,RAD,300
    #F37784"},
    q{"PAD, TOP CAP RE17-30048          #F30121                       
+               
    CORRUGATED ASSEMBLY, 22-7/8 X 21-1/8 X 4-3/4"}
);

print 'Before:';
print for @data;

print 'After:';
for (@data) {
    y/, \n/ /s;
    print;
}
[download]

Output:

Before:
"TRAY,HINGED,PLSTC,20 CAV 
    #F32473"
"BOX HSC,35-3/4X17-1/4 X 50-1/2
    SIMULATOR TALL BOX"
"PAD, FOAM, 24 X 24 X 1/4                #16193                       
+            
    112 SHEETS PER ROLL, ORDER IN FULL ROLLS"
"PKG LIST,ASST ARM,RAD,300
    #F37784"
"PAD, TOP CAP RE17-30048          #F30121                             
+         
    CORRUGATED ASSEMBLY, 22-7/8 X 21-1/8 X 4-3/4"
After:
"TRAY HINGED PLSTC 20 CAV #F32473"
"BOX HSC 35-3/4X17-1/4 X 50-1/2 SIMULATOR TALL BOX"
"PAD FOAM 24 X 24 X 1/4 #16193 112 SHEETS PER ROLL ORDER IN FULL ROLLS
+"
"PKG LIST ASST ARM RAD 300 #F37784"
"PAD TOP CAP RE17-30048 #F30121 CORRUGATED ASSEMBLY 22-7/8 X 21-1/8 X 
+4-3/4"
[download]

I've made two assumptions:

• The commas surrounding each "..." are field separators; so, given ,"...", the actual field is "..."
• The "11.72000","281.28", at the end of your last "#After:" shouldn't be there: I'm guessing a tad too much copying prior to pasting.

See "perlop: Quote-Like Operators" for details of y///. Also note that y/// and tr/// are synonymous.

You'll probably find that y/// is faster than s/// (see "perlperf - Perl Performance and Optimization Techniques").