#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $string = '\\w';
print "PRINT vor subst: $string\n";
print Dumper "DUMPER vor subst: ".$string;
print "Length vor subst: " . length($string) . "\n\n";
$string =~ s/(\\)+/\\/g;
print "PRINT nach subst: $string\n";
print Dumper "DUMPER nach subst: ".$string;
print "Length nach subst: " . length($string) . "\n";

__END__

Output:

PRINT vor subst: \w
$VAR1 = 'DUMPER vor subst: \\w';
Length vor subst: 2

PRINT nach subst: \w
$VAR1 = 'DUMPER nach subst: \\w';
Length nach subst: 2