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

##</code><code>##

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

# 5.6.1
5.006001
$VAR1 = [
          '\\d'
        ];

##</code><code>##

     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.

##</code><code>##

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