ccn_fast => sub {
        my $rand = rand 100;
        my $mystr = $str; # this line is needed for repetitive test only
        1 while $mystr =~ /([^:]+):([^:]+):?/g and (($rand -= $1) > 0);
        $2;
    },