Select Code to Download

sub count
{
...
        } while ($index != -1);
        return $count;
}

sub count
{
...
        $string =~ s/[^$char]//g;
        return length($string);
}

        Eval: 56 wallclock secs (45.19 usr +  0.00 sys = 45.19 CPU) @ 
+3319.32/s (n=150000)
  While Loop:  5 wallclock secs ( 4.69 usr +  0.00 sys =  4.69 CPU) @ 
+31982.94/s (n=150000)
Substitution:  1 wallclock secs ( 1.41 usr +  0.00 sys =  1.41 CPU) @ 
+106382.98/s (n=150000)

sub count
{
    my ($string, $char) = @_;
    return ($string =~ s/$char//g);
}