$_ = 'aaaabbbccddee';
while (m/(.)(.)(??{$1 eq $2})/g)
{
	print "$1|$2\n";
}