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