my @cPosns;
push @cPosns, pos $zazb while $zazb =~ m{(?=c)}g;
my $offset = splice @cPosns, rand @cPosns, 1;