sub rindex_substr_max { my ( $string, ) = @_; my $max = 0; for my $x ( qw( B C f ) ) { my $i = rindex $string, $x; $max = $i if $i > $max; } substr( $string, $max, 1 ) = "K"; return $string; }