String::Index provides ncindex and ncrindex, which I think provide what you're after.

my $pos = ncindex($string, 'c'); # find first non-c
[download]

The needle string ('c' in this case) can be more than one character, in which case it will find the position of the first character in $string that isn't found in the string of search characters.