(my $transformed=$original) =~ s/.../.../;