Read and parse each row using Text::CSV_XS or whatever, then split the field as follows, then reassemble and output the row using the mentioned module or whatever.

splice(@fields, 15, 1, 
    split(//, $fields[15]));
[download]