Select Code to Download

#!/usr/bin/perl

...
                   Index => sub () { grep index($_, '_') < 0, @a } };

__END__

C:\temp>perl index.pl
       Rate Index Regex
Index 891/s    --   -0%
Regex 891/s    0%    --

blazar@perlmonk ~ $ perl index.pl
       Rate Index Regex
Index 261/s    --   -0%
Regex 262/s    0%    --