#!/usr/bin/perl
use 5.016;
use warnings;

foreach(qw(
	aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
	123412312341231234123123412312341231234123
	oxoxoxoxoxoxoxoxxoxoxoxoxoxoxoxoxx
)){
	say $_, " -> ", /^(.+?)\1*$/;
}