Select Code to Download

sub transform {
   my $s = shift;
...
   utf8::encode( $s ) if utf8::is_utf8( $s );
   return $s;
}