while (<DATA>){
	print "$_" if grep {length $_ == 2} join('', sort split //, $_) =~ /((\d)\2+)/g;
}
__DATA__
0000
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
01511
451411