(my $text = $_[0]) =~ s/$_[1]/$_[2]/ee;