Select Code to Download

   if ("\U$listaccountlocked[1]" eq 'TRUE') {

sub slashU {
     my $cnt=0;
...
     }
     return $cnt;
}

In 4096 words, 16 are 'abcb'
        Rate slashU  uccmp  regex
...
regex  266/s     --    -6%   -18%
slashU 282/s     6%     --   -13%
uccmp  325/s    22%    15%     --