Is there a way to compile the eval only once?

$regex contains something of the form s/.../.../?

You can't have a reference to an op, but you can have a reference to a sub...

my $op = 's/a/A/g';
my $sub = eval "sub { $op }";

$_ = "abbracadabra";
$sub->();
print "$_\n";
[download]

AbbrAcAdAbrA
[download]