($copy = $orig) =~ s/PATTERN/REPLACEMENT/;