use strict;
use warnings;

my $string = "This is a test.";
my $re = "s/test/TEST/i";
eval "if( \$string =~ $re ) { print qq/Yep\n/; }";
warn $@ if $@;
print $string, "\n";