$c=A;$_.=a,print/(..+?)\1*$/?$$1//=$c++:1,$/for($_)x99