Select Code to Download

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

s/$find/$replace/g;

s/$find/$replace/gi;