Help for this page

Select Code to Download

Select or download this

use Benchmark 'cmpthese';

...
    substr( $_[0], 0, 1, '' ) while $_[0];
    return;
}

Select or download this

                Rate substr_lvalue    substr_mod
substr_lvalue 2.58/s            --          -50%
substr_mod    5.16/s          101%            --