$source = "abc";
$find = "a";
$replace = "x";
$opt = "g";
eval "\$source =~ s/$find/$replace/$opt";
print $source;