diff --git a/WosClose.sh b/WosClose.sh
index e92f064..391850f 100755
--- a/WosClose.sh
+++ b/WosClose.sh
@@ -4,8 +4,8 @@
 # Initialisation des variables pour les options
 programme=$(basename $0)
 substitut=$(echo $programme | sed 's/./ /g')
-version='1.0.0'
-modif='09/02/2022'
+version='1.1.1'
+modif='21/02/2022'
 
 function usage
 {
@@ -108,7 +108,7 @@
 curl -X POST -d @close$$.xml -b $cookie -c $cookie -v 'http://search.webofknowledge.com/esti/wokmws/ws/WokSearch?wsdl' \
      -H "Cookie: SID=$sid" 2> $err | xmllint -format - > $out
 
-msg=$(perl -ne 'print "$1" if m|<faultstring>(\w+)</faultstring>|;' $out)
+msg=$(perl -ne 'print "$1" if m|<faultstring>(.+?)</faultstring>|;' $out)
 if [[ -n $msg ]]
 then
     echo " " >&2
diff --git a/WosConnect.sh b/WosConnect.sh
index 0be0fb6..2fc9c9d 100755
--- a/WosConnect.sh
+++ b/WosConnect.sh
@@ -3,8 +3,8 @@
 
 # Initialisation des variables pour les options
 programme=$(basename $0)
-version='1.0.1'
-modif='04/02/2022'
+version='1.1.2'
+modif='21/02/2022'
 
 function usage
 {
@@ -122,7 +122,7 @@
     echo "Connexion réussie : SID = $sid "
     echo " "
 else
-    msg=$(perl -ne 'print "$1" if m|<faultstring>(\w+)</faultstring>|;' $out)
+    msg=$(perl -ne 'print "$1" if m|<faultstring>(.+?)</faultstring>|;' $out)
     if [[ -n $msg ]]
     then
         echo " " 
diff --git a/WosDecode.sh b/WosDecode.sh
index 91b90a7..f08caec 100755
--- a/WosDecode.sh
+++ b/WosDecode.sh
@@ -4,7 +4,7 @@
 # Initialisation des variables pour les options
 programme=$(basename $0)
 substitut=$(echo $programme | sed 's/./ /g')
-version='1.2.0'
+version='1.2.1'
 modif='17/02/2022'
 
 function usage
diff --git a/WosQuery.sh b/WosQuery.sh
index 1741176..1101d9c 100755
--- a/WosQuery.sh
+++ b/WosQuery.sh
@@ -4,7 +4,7 @@
 # Initialisation des variables pour les options
 programme=$(basename $0)
 substitut=$(echo $programme | sed 's/./ /g')
-version='1.2.1'
+version='1.2.2'
 modif='21/02/2022'
 
 function usage
@@ -288,11 +288,11 @@
 curl -X POST -d @search$$.xml -b $cookie -c $cookies -v 'http://search.webofknowledge.com/esti/wokmws/ws/WokSearch?wsdl' \
      -H "Cookie: SID=$sid" 2> $err | xmllint -format - > $out
 
-qid=$(perl -ne 'print "$1" if m|<queryId>(\w+)</queryId>|;' $out)
+qid=$(perl -ne 'print "$1" if m|<queryId>(.+?)</queryId>|;' $out)
 if [[ -n $qid ]]
 then
-    rec=$(perl -ne 'print "$1" if m|<recordsFound>(\w+)</recordsFound>|;' $out)
-    max=$(perl -ne 'print "$1" if m|<recordsSearched>(\w+)</recordsSearched>|;' $out)
+    rec=$(perl -ne 'print "$1" if m|<recordsFound>(.+?)</recordsFound>|;' $out)
+    max=$(perl -ne 'print "$1" if m|<recordsSearched>(.+?)</recordsSearched>|;' $out)
     echo " "
     echo "Numéro de requête (queryId) : $qid "
     if [[ $rec -gt 1 ]] 
@@ -303,7 +303,7 @@
     fi
     echo " "
 else
-    msg=$(perl -ne 'print "$1" if m|<faultstring>(\w+)</faultstring>|;' $out)
+    msg=$(perl -ne 'print "$1" if m|<faultstring>(.+?)</faultstring>|;' $out)
     if [[ -n $msg ]]
     then
         echo " " 
diff --git a/WosRetrieve.sh b/WosRetrieve.sh
index 872dbcd..761b749 100755
--- a/WosRetrieve.sh
+++ b/WosRetrieve.sh
@@ -4,8 +4,8 @@
 # Initialisation des variables pour les options
 programme=$(basename $0)
 substitut=$(echo $programme | sed 's/./ /g')
-version='1.01.0'
-modif='17/02/2022'
+version='1.1.2'
+modif='121/02/2022'
 
 function usage
 {
diff --git a/WosSearchByDoi.sh b/WosSearchByDoi.sh
index 7abc118..ba7da52 100755
--- a/WosSearchByDoi.sh
+++ b/WosSearchByDoi.sh
@@ -4,8 +4,8 @@
 # Initialisation des variables pour les options
 programme=$(basename $0)
 substitut=$(echo $programme | sed 's/./ /g')
-version='1.3.2'
-modif='17/02/2022'
+version='1.3.3'
+modif='21/02/2022'
 
 function usage
 {
@@ -312,15 +312,15 @@
      -H "Cookie: SID=$sid" 2> $err | xmllint -format - > $out
 
 # Test de la réponse
-qid=$(perl -ne 'print "$1" if m|<queryId>(\w+)</queryId>|;' $out)
+qid=$(perl -ne 'print "$1" if m|<queryId>(.+?)</queryId>|;' $out)
 if [[ -n $qid ]]
 then
-    rec=$(perl -ne 'print "$1" if m|<recordsFound>(\w+)</recordsFound>|;' $out)
-    max=$(perl -ne 'print "$1" if m|<recordsSearched>(\w+)</recordsSearched>|;' $out)
+    rec=$(perl -ne 'print "$1" if m|<recordsFound>(.+?)</recordsFound>|;' $out)
+    max=$(perl -ne 'print "$1" if m|<recordsSearched>(.+?)</recordsSearched>|;' $out)
     total=$(( $total + $rec ))
     cat $out >> $sortie
 else
-    msg=$(perl -ne 'print "$1" if m|<faultstring>(\w+)</faultstring>|;' $out)
+    msg=$(perl -ne 'print "$1" if m|<faultstring>(.+?)</faultstring>|;' $out)
     if [[ -n $msg ]]
     then
         echo " "