diff --git a/README.md b/README.md
index 00bd721..2b3beac 100644
--- a/README.md
+++ b/README.md
@@ -38,10 +38,11 @@
 
 ### Données extraites
 
-Pour l’instant, on a 19 champs :
+Pour l’instant, on a 20 champs :
 
  * numéro séquentiel,
  * nom du corpus (≅ nom de l'éditeur),
+ * valeur de l’identifiant ARK (sans  “ark:”),
  * identifiant ISTEX,
  * type de publication et type(s) de document,
  * ISSN,
diff --git a/m2m.pl b/m2m.pl
index c448061..5f1967e 100644
--- a/m2m.pl
+++ b/m2m.pl
@@ -19,8 +19,8 @@
 
 my ($programme) = $0 =~ m|^(?:.*/)?(.+)|;
 
-my $version     = "2.2.1";
-my $dateModif   = "05 Octobre 2017";
+my $version     = "2.3.0";
+my $dateModif   = "19 Janvier 2018";
 
 # Variables
 my $destination = "";
@@ -240,6 +240,7 @@
 my %hit = %{$hit};
 $id  = $hit{'id'};
 $corpus = defined $hit{'corpusName'} ? $hit{'corpusName'} : "Inconnu";
+my $ark    = '?';
 my $lien   = "";
 my $type   = "";
 my $langue = "";
@@ -258,6 +259,9 @@
 my @sujets = ();
 my @types  = ();
 my $genre  = "";
+if ( defined $hit{'arkIstex'} ) {
+	$ark = substr($hit{'arkIstex'}, 4);
+	}
 if ( defined $hit{'genre'} ) {
 	$genre = join(", ", @{$hit{'genre'}});
 	}
@@ -332,8 +336,8 @@
 	my %enrichment = %{$hit{'enrichments'}};
 	push(@types, sort keys %enrichment);
 	}
-print OUT pretty($num) , "\t$corpus\t$id\t$genre\t$issn\t$eissn\t$isbn\t";
-print OUT "$titre\t$date\t$volume\t$issue\t$langue\t$resume car.\t$pdf\t";
+print OUT pretty($num) , "\t$corpus\t$ark\t$id\t$genre\t$issn\t$eissn\t$isbn";
+print OUT "\t$titre\t$date\t$volume\t$issue\t$langue\t$resume car.\t$pdf\t";
 print OUT join(" ; ", @types), "\t", join(" ; ", @catWoS), "\t";
 print OUT join(" ; ", @catSM), "\t", join(" ; ", @catPF), "\t";
 print OUT join(" ; ", @sujets), "\n";