Select Code to Download

use strict;
use warnings;
...
    $str =~ /(BOO.{3})/;
    return $1;
}

doSubZ: ZOOCOO
doSubB: --undef--
...
substrindexZ 2198729/s          81%           --         -45%         
+-62%
substrindexB 4003188/s         229%          82%           --         
+-30%
regexpB      5733702/s         372%         161%          43%         
+  --