Select Code to Download

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

use warnings;
use strict;
...
[world]
[hello]
[hi]