print $2, $/ while /(\b\w+\b)(?=(.*?)\1)/g;