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