print $2 while 'abccabbcabc' =~ m[(c).*?(\1)]g;;
c
c