Help for this page
$line =~ s/39,\\\\r\\n00,39,00,39,00,39/3$fields[0],\\\\r\\n00,3$field +s[1],00,3$fields[2],00,3$fields[3]/g;