(my $modified = $_) =~ s/$pattern/$change_to/g;

##</code><code>##

s/$pattern/$change_to/g;
my $modified = $_;