$string = 'ABAA';
substr($string,0,2)++;

##</code><code>##

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;