$s = 'abcdabcdabceabcdabcdabceab';
for (1..length($s)-1)
{
        print substr($s,0,$_) and last if substr($s,$_) eq substr($s,0,length($s)-$_);
}