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

my $re = 's~a~b~g';
my $test = 'abcabcabc';

for ($test) {
    eval "$re";
}

print $test;