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

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