$line =~ s/39/3$fields[0]/;
$line =~ s/39/3$fields[1]/;
$line =~ s/39/3$fields[2]/;
$line =~ s/39/3$fields[3]/;