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