if ( open my $FH, "<dbfile" ) {
  my @newrows;

  for my $row ( <$FH> ) {
    chomp $row;
    push @newrows, ( join ',',
     map { s/"/""/g ; $_ = "\"$_\"" }
       split / _ /, $row
    );
  }

  # print @newrows to file
}