my $line="abcdefABCDEF"; my $subs='K'; $line =~ /([^CBf]*)$/; my $pos = $-[0] - 1; $line =~ s/(?<=.{$pos})(.)/\u$subs/; print("POS: [$pos] $line\n");