Select Code to Download

$a = "aaabbbaaa";
$b = "s/b/c/g";
eval '$a =~ ' . $b;

local $_ = "aaabbbaaa";
$b = "s/b/c/g";
eval $b;

# Inputs
# ======
...
} else {
   $string =~ s/$regexp/$subst/;
}