print $1 if 'abcfoobc' =~ /(.*)\w*\1/; # does work