Select Code to Download

$line =~ s/,//g;
# or, another way to get the same result:
$line =~ tr/,//d;

@widths = (3,6,9,2,3,2,3,3,1,2,6,39);
# how to break up the original fixed-width data record:
...
    }
    print FIXED "$out\n";
}