$text = "asssssaasssxaasaayaaa";
$text =~ s/(?:\G([^xa]*?)a|()a(?!.*y))/$1A/g;
$text = "asssssaasssxaasaxayayaaa";
$text =~ s/(?:\G([^xa]*?)a|()a(?!.*y))/$1A/g;
$text = "asssssaasssxaasayaxayaaa";
$text =~ s/(?:\G([^xa]*?)a|()a(?!.*y))/$1A/g;
JHRleHQgPSAiYXNzc3NzYWFzc3N4YWFzYWF5YWFhIjsKcHJpbnQgIkJlZm9yZTogJHRleHRcbiI7CiR0ZXh0ID1+IHMvKD86XEcoW154YV0qPylhfCgpYSg/IS4qeSkpLyQxQS9nOwpwcmludCAiQWZ0ZXI6ICR0ZXh0XG4iOwpwcmludCAiLS0tLS1cbiI7CiR0ZXh0ID0gImFzc3Nzc2Fhc3NzeGFhc2F4YXlheWFhYSI7CnByaW50ICJCZWZvcmU6ICR0ZXh0XG4iOwokdGV4dCA9fiBzLyg/OlxHKFteeGFdKj8pYXwoKWEoPyEuKnkpKS8kMUEvZzsKcHJpbnQgIkFmdGVyOiAkdGV4dFxuIjsKcHJpbnQgIi0tLS0tXG4iOwokdGV4dCA9ICJhc3Nzc3NhYXNzc3hhYXNheWF4YXlhYWEiOwpwcmludCAiQmVmb3JlOiAkdGV4dFxuIjsKJHRleHQgPX4gcy8oPzpcRyhbXnhhXSo/KWF8KClhKD8hLip5KSkvJDFBL2c7CnByaW50ICJBZnRlcjogJHRleHRcbiI7Cg==