use 5.010;
my $str = "abcdefghiaabccdjklm";
my $substr;
$substr = "" while $str =~ s/(.)(?:(.*?)\1(?{ $substr .= $^N }))+/$substr/;
say $str;