my $string="abcdefABCDEF";
$string =~ s/^(.*)[CBf]/$1K/s;
say $string