$str =~ tr[\0][ ];

##</code><code>##

sub fetchOne{ substr $str, $_[ 0 ] * 4, 4 }