utf8::encode( $s ) if utf8::is_utf8( $s );

##</code><code>##

IO::File->new( chr (0xbb), q(>))