00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,00,00,00,02,00,01,00,39,\  00,39,00,39,00,39,00,30,00,30,00,30,00,30,00,00,00,00,00,00,00,00,00,00,00,\

##</code><code>##

$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;