(eval$_)=~/^[\0-\xff]{4}\z/

##</code><code>##

  (eval"0.0.$_")=~/^\0\0(.|[\0-\xff]([\0-\x{ffffff}]|[\0-\xff]([\0-\x{ffff}]|[\0-\xff]{2})))\z/s