$intext =~ s/$orgtext/$newtext/gims;