split( /\x81\x41/, $txt );

##</code><code>##

split /\x{3001}/, decode( "cp932", $txt );