(my $fix_up = $old_str ) =~ s/this/that/g;