#!/usr/bin/perl
use strict;
use warnings;
use Test::More;

my ($text, $search);


$text = "\\x1\\x2\\x3\\x4";
$text =~ s/x2\\.+\\x4/new/;
my $exp = $text;


$text   = "\\x1\\x2\\x3\\x4";
$search = "x2\\\\.+\\\\x4";
$text =~ s/$search/new/;
my $got = $text;


is( $got, $exp, "slasheritis");

done_testing;

##</code><code>##

ok 1 - slasheritis
1..1