[~] $ perl -anle'next if/[^\s\da-f]/i;$t+=hex($F[1])-hex($F[0]);
                 END{print$t}' bleadperl/lib/unicode/Is/Digit.pl 
178