my $string = 'ACOCOB';