$_ = "hellohiworldhellohiworldhellohiworldhellohiworld";
if (/^((.+?)\2+)$/) {
 print "[$1][$2]\n";
}