#!/usr/bin/perl
use strict;
use warnings;

my ($text, $search);

$text = "\\x1\\x2\\x3\\x4";
print "\nUsing literal in regex: (success)\n";
print "Before: text = $text\n";
$text =~ s/x2\\.+\\x4/new/;
print " After: text = $text\n";


$text   = "\\x1\\x2\\x3\\x4";
$search = "x2\\.+\\x4";
print "\nUsing variable in regex: (failure)\n";
print "Before: text = $text\n";
$text =~ s/$search/new/;
print " After: text = $text\n";