Substract a number of capital letters in a row from a string in perl

Question

I have a string which can contain letters and/or numbers and I want to identify if it has 10 capital letters in a row and substract them if exist:

Example :

my $st