diff --git a/Polaris/Extraction_metadata.pl b/Polaris/Extraction_metadata.pl
new file mode 100644
index 0000000..f25dda9
--- /dev/null
+++ b/Polaris/Extraction_metadata.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use utf8;
+use open qw/:std :utf8/;
+
+use Encode;
+use Getopt::Long;
+
+my ($programme) = $0 =~ m|^(?:.*/)?(.+)|;
+$programme = decode_utf8($programme);
+
+my $metadata = ""; 
+my $sortie = ""; 
+
+eval	{
+	$SIG{__WARN__} = sub {usage(1);};
+		GetOptions(
+		"metadata=s"      => \$metadata,
+		"sortie=s"         => \$sortie,
+		);
+	};
+$SIG{__WARN__} = sub {warn $_[0];};
+
+usage(2) if not $metadata or not $sortie;
+
+open(META, "<:utf8", $metadata) or die "Couldn't open file \"$metadata\", $!";
+open(SORTIE, "+<:utf8", $sortie) or die "Couldn't open file \"$sortie\", $!";
+
+foreach my $ligne (<META>)
+{
+	chomp($ligne);
+	if   ($ligne =~ /^DT : (.*)/)
+		{
+			print SORTIE "**** *DT_";
+			my $dt = $1;
+			$dt =~ s/ ; /_/g;
+			print SORTIE $dt;
+			print SORTIE " *SO_"
+			#my $dt = $1;
+			#print SORTIE "**** *DT_"
+			#print SORTIE $dt;
+		}
+	elsif ($ligne =~ /^SO : (.*?) ;/)
+		{
+			#$valeurs[1] = "$1";
+			#print SORTIE " *SO_"
+			#print SORTIE $valeurs[1];
+			my $so = $1;
+			$so =~ s/ /_/g;
+			print SORTIE $so;
+			print SORTIE " *LA_"
+		}
+	elsif ($ligne =~ /^LA : (.*)/)
+		{
+			#$valeurs[2] = "$1";
+			#print SORTIE " *LA_"
+			#print SORTIE $valeurs[2];
+			my $la = $1;
+			$la =~ s/ /_/g;
+			print SORTIE $la;
+			print SORTIE "\n";
+		}
+}
+
+close META;
+close SORTIE;
+
+exit 0;
+
+sub usage
+{
+my $code = shift;
+
+print STDERR "Usage : $programme -m metadata -s sortie \n";
+
+exit $code;
+}
diff --git a/Polaris/Preparation_entree_Ira_polaris.pl b/Polaris/Preparation_entree_Ira_polaris.pl
new file mode 100644
index 0000000..1873102
--- /dev/null
+++ b/Polaris/Preparation_entree_Ira_polaris.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use utf8;
+use open qw/:std :utf8/;
+
+use Encode;
+use Getopt::Long;
+
+my ($programme) = $0 =~ m|^(?:.*/)?(.+)|;
+$programme = decode_utf8($programme);
+
+my $dir      = "";	
+my $metadata = "";	
+my $sortie   = "";	
+
+eval	{
+	$SIG{__WARN__} = sub {usage(1);};
+		GetOptions(
+		"dir=s"      => \$dir,
+		"metadata=s" => \$metadata,
+		"sortie=s"   => \$sortie,
+		);
+	};
+$SIG{__WARN__} = sub {warn $_[0];};
+
+usage(2) if not $dir or not $metadata or not $sortie;
+
+#ouverture du dossier contenant les fichier .txt
+
+opendir(DIR, $dir) or die "Couldn't open file $dir, $!";
+my @files = sort grep {not /^\./} readdir(DIR);
+closedir(DIR);
+my $size = @files;
+print STDERR "Total : $size\n";
+
+#ouverture des métadonnées
+open(METADATA, "<:utf8", $metadata) or die "Couldn't open file $metadata, $!"; 
+
+#ouverture d'un fichier pour saisir des données
+open(DATA, ">:utf8", $sortie) or die "Couldn't open file $sortie, $!"; 
+
+my $i = 0;
+while (my $metadata = <METADATA>) {
+	print DATA $metadata;
+	open(FILE, "<:utf8", "$dir/$files[$i]") or die "Couldn't open file $files[$i], $!";
+	while(my $ligne = <FILE>){
+		#suppression des étoiles et des chiffres
+		$ligne =~ s/\*//;
+		print DATA $ligne;
+	}
+	close(FILE);
+	$i++;
+}
+
+close(METADATA);
+close(DATA);
+
+exit 0;
+
+
+sub usage
+{
+my $code = shift;
+
+print STDERR "Usage : $programme -d répertoire -m métadonnées -s sortie\n\n";
+
+exit $code;
+}