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

##</code><code>##

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