perl -le 'print $x = "abcdefgxxabcdefgzzabcdsjfhkdfab"; print $2 if $x =~ /((\w{2,}?).*?\2.*?)+/;'
abcdefgxxabcdefgzzabcdsjfhkdfab
cd