print$a=s/^/$a/+2*/(.*)(.)\1/-$2for($_)x$$