Select Code to Download

print $x = "abcdefgxxabcdefgzzabcdsjfhkdfab", "\n";
print  "<" . join('|',$x =~ /(\w{2,}?)(?=.*?\1)/g) , ">\n";

#outputs: <ab|cd|ef|ab|cd|ab>