Select Code to Download

use constant  BASE62 => join '', 'a'..'z', 0 .. 9, 'A'..'Z';

...
    $n *= 62, $n += index( BASE62, substr( $t, 0, 1, '') ) while lengt
+h $t;
    return $n
}

#! perl -slw
use 5.010;
...
        Rate yourn  mine
yourn 49.2/s    --  -48%
mine  93.9/s   91%    --