diff --git a/jour08/jour8.pl b/jour08/jour8.pl
index f2bd180..638af8c 100644
--- a/jour08/jour8.pl
+++ b/jour08/jour8.pl
@@ -1,3 +1,4 @@
+#!usr/bin/perl
 use strict;
 use warnings;
 
@@ -15,6 +16,19 @@ while (<FH>) {
     $total = $total + length($_) - length($tmp);
 }
 
-close(FH);
+print "Le total est : $total.\n";
+seek FH, 0, 0;
+$total = 0;
+print "Traitement de la deuxième partie…\n";
+
+while (<FH>) {
+    $tmp = $_;
+    $tmp =~ s/\\/\\\\/ig;
+    $tmp =~ s/"/\\"/ig;
+    chomp($tmp);
+    chomp($_);
+    $total = $total + length($tmp) + 2 - length($_);
+}
 
 print "Le total est : $total.\n";
+close(FH);