sub my_print {
   my $s = join( $,, @_ ) . $\;
   utf8::encode( $s );
   print( $s );
}

my_print( $string );