Encoding issue in 3.18.x

diff --git a/tools/batchMod.pl b/tools/batchMod.pl
index 1145f9b..67d66ef 100755
--- a/tools/batchMod.pl
+++ b/tools/batchMod.pl
@@ -34,6 +34,7 @@ use C4::ClassSource;
 use C4::Dates;
 use C4::Debug;
 use C4::Members;
+use Encode;
 use MARC::File::XML;
 use List::MoreUtils qw/uniq/;

@@ -389,6 +390,8 @@ foreach my $tag (sort keys %{$tagslib}) {
           push @authorised_values, ""; # unless ( $tagslib->{$tag}->{$subfield}->{mandatory} );
           $authorised_values_sth->execute( $tagslib->{$tag}->{$subfield}->{authorised_value}, $branch_limit ? $branch_limit : () );
           while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) {
+              $value = Encode::encode('utf-8', $value);
+              $lib = Encode::encode('utf-8', $lib);
               push @authorised_values, $value;
               $authorised_lib{$value} = $lib;
           }