$_ = reverse 'abcdabcdabceabcdabcdabceab';
/^(.*)(.+?\1)\2*$/;
print scalar reverse $2;