$line =~ s/39,\\\\r\\n00,39,00,39,00,39/3$fields[0],\\\\r\\n00,3$fields[1],00,3$fields[2],00,3$fields[3]/g;