use warnings;
use strict;


my @strings = (
    ',"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",'
);

for (@strings){
    s/\s+/ /g;
    print "$_\n\n";
}

##</code><code>##

,"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",