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