fix Data-Dumper tests

Author: book

dist/Data-Dumper/t/dumper.t

@@ -1670,7 +1670,7 @@ EOW
 {
   # [github #18614 - handling of Unicode characters in regexes]
   # [github #18764 - ... without breaking subsequent Latin-1]
-  if ($] lt '5.010') {
+  if ("$]" < '5.010') {
       SKIP_BOTH("Incomplete support for UTF-8 in old perls");
       last;
   }
@@ -1683,11 +1683,11 @@ EOW
 #  '\xb6'
 #];
 EOW
-  if ($] lt '5.010001') {
+  if ("$]" < '5.010001') {
       $want =~ s!qr/!qr/(?-xism:!g;
       $want =~ s!/,!)/,!g;
   }
-  elsif ($] gt '5.014') {
+  elsif ("$]" > '5.014') {
       $want =~ s{/(,?)$}{/u$1}mg;
   }
   my $want_xs = $want;
@@ -1713,7 +1713,7 @@ EOW
 #  qr/ $bs$bs$bs\\/ /
 #];
 EOW
-  if ($] lt '5.010001') {
+  if ("$]" < '5.010001') {
       $want =~ s!qr/!qr/(?-xism:!g;
       $want =~ s! /! )/!g;
   }
@@ -1724,7 +1724,7 @@ EOW
 #############
 {
   # [github #18614, github #18764, perl #58608 corner cases]
-  if ($] lt '5.010') {
+  if ("$]" < '5.010') {
       SKIP_BOTH("Incomplete support for UTF-8 in old perls");
       last;
   }
@@ -1738,11 +1738,11 @@ EOW
 #  '\xB6'
 #];
 EOW
-  if ($] lt '5.010001') {
+  if ("$]" < '5.010001') {
       $want =~ s!qr/!qr/(?-xism:!g;
       $want =~ s!/,!)/,!g;
   }
-  elsif ($] gt '5.014') {
+  elsif ("$]" > '5.014') {
       $want =~ s{/(,?)$}{/u$1}mg;
   }
   my $want_xs = $want;
@@ -1772,10 +1772,10 @@ EOW
 #  '\xB6'
 #];
 EOW
-  if ($] lt '5.014') {
+  if ("$]" < '5.014') {
       $want =~ s{/u,$}{/,}mg;
   }
-  if ($] lt '5.010001') {
+  if ("$]" < '5.010001') {
       $want =~ s!qr/!qr/(?-xism:!g;
       $want =~ s!/,!)/,!g;
   }