use strict;

my $pattern 	= '(testing)';
my $replacement = 'New \1';
my $flags	= 'i';

my $value	= 'My Testing Text';

$replacement =~ s/\\/\\\\/g;
eval "\$value =~ s/$pattern/$replacement/$flags";

print "$value\n";