perl -e 'print "\xE2\x98\xBA"' | od -txC

##</code><code>##

decode( 'utf8', $non_utf8, Encode::FB_CROAK ); # or Encode::FB_WARN