#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $old_s = <DATA>;
chomp($old_s);
my $new_s = $old_s;
$new_s=~ s/\\\\/\\/g;

print "PRINT:\n$old_s\n$new_s\n";
print "DUMPER:\n".Dumper $old_s, $new_s;

__DATA__
\\w