Select Code to Download

use strict;
use Data::Dumper;
print "$]\n", Dumper([qw[ \\d ]]), "\n";

# with 5.6.0
5.006
...
$VAR1 = [
          '\\d'
        ];

     qw(a\\b)
         In Perl 5.6.0, qw(a\\b) produced a string with two
         backslashes instead of one, in a departure from the
         behavior in previous versions.  The older behavior has
         been reinstated.

  s/\\\\/\\/g if $] eq '5.006'