$ perl -wE '$_="\01\02"; say length; tr/\000-\007//; say length' 2 2